summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-15 15:55:46 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-15 15:55:46 +0100
commite912bbf664f7199a702a01993be6a6aa70c3c6da (patch)
tree484b31b3eafe06c459f3fba2c444d019ac0b1bdc
parent30c656fd2396c18be5e89a9d0e47963dc0fb2389 (diff)
downloadgeiser-guile-e912bbf664f7199a702a01993be6a6aa70c3c6da.tar.gz
geiser-guile-e912bbf664f7199a702a01993be6a6aa70c3c6da.tar.bz2
Multiple values as evaluation result supported.
-rw-r--r--geiser/evaluation.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index 1f3afc0..37f4171 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -95,6 +95,8 @@
(let ((module (or (and (list? module-name)
(resolve-module module-name))
(current-module)))
+ (evaluator (lambda (f m)
+ (call-with-values (lambda () (evaluator f m)) list)))
(result #f)
(captured-stack #f)
(error #f))