bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 077c95eb8797d7a3df03421a033993d200d945d4
parent 037d6f0f4ca0f1875ad33bef4ca57783c8475d8d
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun,  4 Sep 2011 15:32:37 -0600

avoid an internal error

Closes PR 12138

original commit: fd0a2e98798073ba9baf8d805ce31923f1468b1c

Diffstat:
M
collects/scribble/private/manual-vars.rkt
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git 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 ()