diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-09 23:52:04 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-09 23:52:04 +0100 |
| commit | eafe05ed39cf33ed8a3dd6d6a875dc2be00a19d2 (patch) | |
| tree | 8fee8e87a3bbe516a4098e9b3140c5b2e8de22db /scheme/guile | |
| parent | baf8e5e99b0650690b16f4bb8ff1dd5736f18a3a (diff) | |
| download | geiser-guile-eafe05ed39cf33ed8a3dd6d6a875dc2be00a19d2.tar.gz geiser-guile-eafe05ed39cf33ed8a3dd6d6a875dc2be00a19d2.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 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index b128434..c61502e 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/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) |