diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-21 04:46:14 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-21 04:46:14 +0100 |
| commit | abe0355b7eb7961c89ef2e37f68451b131dacb05 (patch) | |
| tree | 5e51a1acc9a39382a5c3c05e441b154933c0caff /scheme/guile/geiser/emacs.scm | |
| parent | 612c7390fc3ff78ac9b0b10b83304095cfceccd5 (diff) | |
| download | geiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.gz geiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.bz2 | |
Correct stack in load/compile file retorts.
Diffstat (limited to 'scheme/guile/geiser/emacs.scm')
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm index 147af7c..b9e2d67 100644 --- a/scheme/guile/geiser/emacs.scm +++ b/scheme/guile/geiser/emacs.scm @@ -112,11 +112,13 @@ SUBR, MSG and REST." (define (ge:compile-file path) "Compile and load file, given its full @var{path}." - (and (compile-file path) - (load-compiled (compiled-file-name path)))) + (evaluate `(and (compile-file ,path) + (load-compiled ,(compiled-file-name path))) + '(geiser emacs) + eval)) (define (ge:load-file path) "Load file, given its full @var{path}." - (compile-and-load path)) + (evaluate `(compile-and-load ,path) '(geiser emacs) eval)) ;;; emacs.scm ends here |