diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-31 18:40:03 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-31 18:40:03 +0200 |
| commit | a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2 (patch) | |
| tree | aa8a03cf0fe385e9df7fa46d3ca92e97b507b381 | |
| parent | dcbe97e5329a06a366cbbd428e8076f7cca277ee (diff) | |
| download | geiser-guile-a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2.tar.gz geiser-guile-a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2.tar.bz2 | |
PLT: correct scanning of arglists in (module) forms.
| -rw-r--r-- | scheme/plt/geiser/autodoc.ss | 2 |
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) . ,_) |