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)) (bound-identifier-mapping-put! ht arg #t))
(syntax-case arg () (syntax-case arg ()
[(kw arg . rest) [(kw arg . rest)
(keyword? (syntax-e #'kw)) (and (keyword? (syntax-e #'kw))
(identifier? #'arg))
(bound-identifier-mapping-put! ht #'arg #t)] (bound-identifier-mapping-put! ht #'arg #t)]
[(arg . rest) [(arg . rest)
(identifier? #'arg) (identifier? #'arg)
(bound-identifier-mapping-put! ht #'arg #t)]))) (bound-identifier-mapping-put! ht #'arg #t)]
[else (void)])))
(cdr s-exp)) (cdr s-exp))
(unless (identifier? (car s-exp)) (unless (identifier? (car s-exp))
;; Curried: ;; Curried: