From fd0a2e98798073ba9baf8d805ce31923f1468b1c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Sep 2011 15:32:37 -0600 Subject: [PATCH] avoid an internal error Closes PR 12138 --- 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 index 1d4bea712f..e37357ba91 100644 --- 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 ()