From 49842df2405472ad6f9164d47d7eb4f5f3c423b9 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 21 Feb 2009 04:46:14 +0100 Subject: Correct stack in load/compile file retorts. --- geiser/emacs.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/geiser/emacs.scm b/geiser/emacs.scm index 147af7c..b9e2d67 100644 --- a/geiser/emacs.scm +++ b/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 -- cgit v1.2.3