[nongnu] elpa/geiser-guile 49842df 031/284: Correct stack in load/compile file retorts.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 49842df2405472ad6f9164d47d7eb4f5f3c423b9
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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