suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

avoid an internal error

Browse Source 
Closes PR 12138

original commit: fd0a2e98798073ba9baf8d805ce31923f1468b1c
This commit is contained in:
Matthew Flatt 2011-09-04 15:32:37 -06:00
parent 037d6f0f4c
commit 077c95eb87
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/private/manual-vars.rkt
View File

@ -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 ()