summaryrefslogtreecommitdiff
path: root/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-09 23:52:04 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-09 23:52:04 +0100
commit30c656fd2396c18be5e89a9d0e47963dc0fb2389 (patch)
treef1a2ff4a83f36ec5e8c951a8186040a588eab0fb /geiser
parentf36778f5367d73a519b56f48a79875a424db35fe (diff)
downloadgeiser-guile-30c656fd2396c18be5e89a9d0e47963dc0fb2389.tar.gz
geiser-guile-30c656fd2396c18be5e89a9d0e47963dc0fb2389.tar.bz2
Support for multiple Scheme implementations, Chapter 1.
* Evaluation system is now pluggable * The rest of the system understands said pluggability * Guile provides its own implementation (geiser-guile) * The reload system is aware of the new kids on the block
Diffstat (limited to 'geiser')
-rw-r--r--geiser/doc.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm
index b128434..c61502e 100644
--- a/geiser/doc.scm
+++ b/geiser/doc.scm
@@ -111,8 +111,7 @@
(define (obj-args obj)
(cond ((not obj) #f)
((or (procedure? obj) (program? obj)) (arguments obj))
- ((macro? obj) (or (obj-args (macro-transformer obj))
- '((required ...))))
+ ((macro? obj) (or (obj-args (macro-transformer obj)) '((required ...))))
(else #f)))
(define (arguments proc)