From 41d54012368ca33461fe3e8668c2b0e3052af3b8 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 16 Feb 2009 22:21:28 +0100
Subject: New command to open module file.

---
 scheme/guile/geiser/eval.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'scheme/guile/geiser/eval.scm')

diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm
index 0e3c7dc..a74bf29 100644
--- a/scheme/guile/geiser/eval.scm
+++ b/scheme/guile/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 ()
-- 
cgit v1.2.3