From d7642ed7d0e3184921835644d8dde0b1b50e1e6f Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 15 Mar 2009 15:55:46 +0100
Subject: Multiple values as evaluation result supported.

---
 scheme/guile/geiser/evaluation.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'scheme')

diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index 1f3afc0..37f4171 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/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))
-- 
cgit v1.2.3