summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
commitabe0355b7eb7961c89ef2e37f68451b131dacb05 (patch)
tree5e51a1acc9a39382a5c3c05e441b154933c0caff /scheme
parent612c7390fc3ff78ac9b0b10b83304095cfceccd5 (diff)
downloadgeiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.gz
geiser-chez-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.bz2
Correct stack in load/compile file retorts.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/emacs.scm8
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