avoid an internal error

Closes PR 12138
2011-09-04 15:32:37 -06:00 · 2011-09-04 15:32:37 -06:00 · fd0a2e9879
commit fd0a2e9879
parent c0b4743b40
1 changed files with 3 additions and 1 deletions
--- a/collects/scribble/private/manual-vars.rkt
+++ b/collects/scribble/private/manual-vars.rkt
@ -73,7 +73,9 @@
                      (let loop ([form (case (syntax-e kind)
                                         [(form) (if (identifier? s-exp)
                                                     null
-                                                     (cdr (syntax-e s-exp)))]
+                                                     (if (pair? (syntax-e s-exp))
+                                                         (cdr (syntax-e s-exp))
+                                                         null))]
                                         [(form/none) s-exp]
                                         [(form/maybe)
                                          (syntax-case s-exp ()