summaryrefslogtreecommitdiff
path: root/geiser/eval.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-16 22:21:28 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-16 22:21:28 +0100
commita64467da658c51b7a282a21b61e6f6fc19f592c4 (patch)
tree3d4c35c433a7a8b6b2ba23749afb6539ccec70cd /geiser/eval.scm
parent3432ccf319a3851b92f96d7ec00f462350db4d36 (diff)
downloadgeiser-guile-a64467da658c51b7a282a21b61e6f6fc19f592c4.tar.gz
geiser-guile-a64467da658c51b7a282a21b61e6f6fc19f592c4.tar.bz2
New command to open module file.
Diffstat (limited to 'geiser/eval.scm')
-rw-r--r--geiser/eval.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/geiser/eval.scm b/geiser/eval.scm
index 0e3c7dc..a74bf29 100644
--- a/geiser/eval.scm
+++ b/geiser/eval.scm
@@ -26,7 +26,8 @@
(define-module (geiser eval)
#:export (eval-in comp-file load-file)
- #:use-module (srfi srfi-1))
+ #:use-module (srfi srfi-1)
+ #:no-backtrace)
(define (eval-in form module-name)
"Evals @var{form} in the module designated by @var{module-name}.
@@ -35,7 +36,8 @@ 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."
- (let ((module (or (and module-name (resolve-module module-name))
+ (let ((module (or (and (list? module-name)
+ (resolve-module module-name))
(current-module))))
(catch #t
(lambda ()