suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve error handling for `defproc'

Browse Source 
Closes PR 12780
This commit is contained in:
Matthew Flatt 2012-07-02 10:07:52 -06:00
parent aa68692b37
commit e8d9d4e9ca
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,11 +104,13 @@
(bound-identifier-mapping-put! ht arg #t))
(syntax-case arg ()
[(kw arg . rest)
(keyword? (syntax-e #'kw))
(and (keyword? (syntax-e #'kw))
(identifier? #'arg))
(bound-identifier-mapping-put! ht #'arg #t)]
[(arg . rest)
(identifier? #'arg)
(bound-identifier-mapping-put! ht #'arg #t)])))
(bound-identifier-mapping-put! ht #'arg #t)]
[else (void)])))
(cdr s-exp))
(unless (identifier? (car s-exp))
;; Curried: