diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-12 22:07:29 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-12 22:07:29 +0100 |
| commit | f857023945f6eee65d9725684f22e022c3e6acc4 (patch) | |
| tree | b5b735e248ed0ee18edc34e367be0d33ae4a10f6 /geiser/eval.scm | |
| parent | 3bb2a98e05b21cfd44aeb766eedb97e84408cc63 (diff) | |
| download | geiser-guile-f857023945f6eee65d9725684f22e022c3e6acc4.tar.gz geiser-guile-f857023945f6eee65d9725684f22e022c3e6acc4.tar.bz2 | |
Edit symbol at point for programs.
Diffstat (limited to 'geiser/eval.scm')
| -rw-r--r-- | geiser/eval.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |