Eval/load file in the correct module.

1 files changed, 2 insertions, 14 deletions

diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 90e03dd..f440827 100644
--- a/geiser/emacs.scm
+++ b/geiser/emacs.scm
@@ -125,32 +125,20 @@
      (compile form))))
 
 (define (ge:eval form module-name)
-  "Evals @var{form} in the module designated by @var{module-name}.
-If @var{module-name} is @var{#f} or resolution fails, the current module is used instead.
-The result is a list of the form ((RESULT . <form-value>) (OUTPUT . <string>))
-if no evaluation error happens, or ((ERROR (KEY . <error-key>) <error-arg>...))
-in case of errors. Each error arg is a cons (NAME . VALUE), where NAME includes
-SUBR, MSG and REST."
   (evaluate form module-name eval))
 
 (define (ge:compile form module-name)
-  "Compiles @var{form} in the module designated by @var{module-name}.
-If @var{module-name} is @var{#f} or resolution fails, the current module is used instead.
-The result is a list of the form ((RESULT . <form-value>) (OUTPUT . <string>))
-if no evaluation error happens, or ((ERROR (KEY . <error-key>) <error-arg>...))
-in case of errors. Each error arg is a cons (NAME . VALUE), where NAME includes
-SUBR, MSG and REST."
   (evaluate form module-name eval-compile))
 
 (define (ge:compile-file path)
   "Compile and load file, given its full @var{path}."
   (evaluate `(and (compile-file ,path)
                   (load-compiled ,(compiled-file-name path)))
-            '(geiser emacs)
+            #f
             eval))
 
 (define (ge:load-file path)
   "Load file, given its full @var{path}."
-  (evaluate `(load ,path) '(geiser emacs) eval))
+  (evaluate `(load ,path) #f eval))
 
 ;;; emacs.scm ends here