branch: elpa/geiser-guile
commit 9ff1f7e76b989d2dafea92457619d8227e4ddc5f
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Eval/load file in the correct module.
---
geiser/emacs.scm | 16 ++--------------
1 file 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
