summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-26 12:00:12 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-26 12:00:12 +0100
commit8337756109d12349b220ba422f148555a2d031c2 (patch)
treecacbd727a7d3600861112ebcd99ea76d9b8fbb59 /scheme
parenteb2563843e3d2843da838f87f5bc32dcf9b47757 (diff)
downloadgeiser-chez-8337756109d12349b220ba422f148555a2d031c2.tar.gz
geiser-chez-8337756109d12349b220ba422f148555a2d031c2.tar.bz2
Eval/load file in the correct module.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/emacs.scm16
1 files changed, 2 insertions, 14 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm
index 90e03dd..f440827 100644
--- a/scheme/guile/geiser/emacs.scm
+++ b/scheme/guile/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