From f857023945f6eee65d9725684f22e022c3e6acc4 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 12 Feb 2009 22:07:29 +0100
Subject: Edit symbol at point for programs.

---
 geiser/eval.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'geiser/eval.scm')

diff --git a/geiser/eval.scm b/geiser/eval.scm
index 1400566..8a7f48f 100644
--- a/geiser/eval.scm
+++ b/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