From 0ead55f7052edb0f151e4e86c6feb30718d36bea Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 12 Feb 2009 22:07:29 +0100 Subject: Edit symbol at point for programs. --- scheme/guile/geiser/eval.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'scheme/guile/geiser/eval.scm') diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm index 1400566..8a7f48f 100644 --- a/scheme/guile/geiser/eval.scm +++ b/scheme/guile/geiser/eval.scm @@ -70,7 +70,9 @@ SUBR, MSG and REST." (current (getcwd))) (dynamic-wind (lambda () (chdir dest)) - (lambda () (compile-file path)) + (lambda () + (and (compile-file path) + (load-compiled (string-append dest "/" (compiled-file-name path))))) (lambda () (chdir current))))) (define (load-file path) -- cgit v1.2.3