From a2770a5c5fae6c7d845f2fe9b91ca7a1cec329e2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 31 Mar 2010 18:40:03 +0200 Subject: PLT: correct scanning of arglists in (module) forms. --- scheme/plt/geiser/autodoc.ss | 2 ++ 1 file changed, 2 insertions(+) (limited to 'scheme/plt/geiser') 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) . ,_) -- cgit v1.2.3