PLT: Bug fix in autodoc's argument name parsing.

Definitions of the form (define (foo bar) (lambda ---) --) were not
being matched correctly.

1 files changed, 4 insertions, 3 deletions

diff --git a/scheme/plt/geiser/autodoc.ss b/scheme/plt/geiser/autodoc.ss
index 1eed644..ef73cc1 100644
--- a/scheme/plt/geiser/autodoc.ss
+++ b/scheme/plt/geiser/autodoc.ss
@@ -78,10 +78,10 @@
      (for-each (lambda (f) (parse-datum! f store)) forms))
     ((list 'define (list (list name formals ...) other ...) body ...)
      (add-signature! name formals store))
-    ((list 'define name (list 'lambda formals body ...))
-     (add-signature! name formals store))
     ((list 'define (list name formals ...) body ...)
      (add-signature! name formals store))
+    ((list 'define name (list 'lambda formals body ...))
+     (add-signature! name formals store))
     ((list 'define-for-syntax (list name formals ...) body ...)
      (add-signature! name formals store))
     ((list 'define-for-syntax name (list 'lambda formals body ...))
@@ -91,7 +91,8 @@
     (_ void)))
 
 (define (add-signature! name formals store)
-  (hash-set! store name (parse-formals formals)))
+  (when (symbol? name)
+    (hash-set! store name (parse-formals formals))))
 
 (define (parse-formals formals)
   (let loop ((formals formals) (req '()) (opt '()) (keys '()))