[nongnu] elpa/geiser-chicken bdef28d 087/102: Change geiser-eval to accept lists as module name (C5)

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit bdef28d7fe9013d9878157b0be5747e27aa3461b
Author: Ricardo G. Herdt <r.herdt@posteo.de>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Change geiser-eval to accept lists as module name (C5)
    
    Chicken 5 allows lists of symbols and integers as module names, for instance
    (module (my example) * ...)
    
    see: http://wiki.call-cc.org/man/5/Modules#module
---
 geiser/chicken5.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/geiser/chicken5.scm b/geiser/chicken5.scm
index 3083427..fd374b9 100644
--- a/geiser/chicken5.scm
+++ b/geiser/chicken5.scm
@@ -219,8 +219,10 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
   (define (geiser-eval module form . rest)
-    (when (and module (not (symbol? module)))
-      (error "Module should be a symbol"))
+    (when (and module
+               (not (symbol? module))
+               (not (list? module)))
+      (error "Module should be either a symbol or a list of symbols and 
integers"))
 
     ;; All calls start at toplevel
     (let* ((thunk (lambda () (eval form))))