summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-31 18:40:03 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-31 18:40:03 +0200
commita2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2 (patch)
treeaa8a03cf0fe385e9df7fa46d3ca92e97b507b381 /scheme/plt/geiser
parentdcbe97e5329a06a366cbbd428e8076f7cca277ee (diff)
downloadgeiser-guile-a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2.tar.gz
geiser-guile-a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2.tar.bz2
PLT: correct scanning of arglists in (module) forms.
Diffstat (limited to 'scheme/plt/geiser')
-rw-r--r--scheme/plt/geiser/autodoc.ss2
1 files changed, 2 insertions, 0 deletions
diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss
index 65e095f..7e64c89 100644
--- a/scheme/plt/geiser/autodoc.ss
+++ b/scheme/plt/geiser/autodoc.ss
@@ -80,6 +80,8 @@
(match datum
(`(module ,name ,lang (#%module-begin . ,forms))
(for-each (lambda (f) (parse-datum! f store)) forms))
+ (`(module ,name ,lang . ,forms)
+ (for-each (lambda (f) (parse-datum! f store)) forms))
(`(define ((,name . ,formals) . ,_) . ,_)
(add-signature! name formals store))
(`(define (,name . ,formals) . ,_)