branch: elpa/geiser-chicken
commit bdef28d7fe9013d9878157b0be5747e27aa3461b
Author: Ricardo G. Herdt <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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))))
