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

leftover debugging aide

Browse Source
This commit is contained in:
Matthias Felleisen 2011-03-26 11:40:32 -04:00
parent 60dc3a5773
commit 5fee2676dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/private/syn-aux.rkt
View File

@ -161,14 +161,14 @@
(lambda (p) (lambda (p)
(syntax-case p () (syntax-case p ()
[(_ x) #`(proc> #,tag (f2h x) arity)] [(_ x) #`(proc> #,tag (f2h x) arity)]
[_ (displayln p) (err tag p)])))] [_ (err tag p)])))]
[(_ arity except extra) [(_ arity except extra)
(lambda (tag) (lambda (tag)
(lambda (p) (lambda (p)
(syntax-case p () (syntax-case p ()
[(_ x) #`(proc> #,tag (f2h x) arity)] [(_ x) #`(proc> #,tag (f2h x) arity)]
extra extra
[_ (displayln p) (err tag p)])))])) [_ (err tag p)])))]))
(define (err spec p . xtras) (define (err spec p . xtras)
(raise-syntax-error (cadr spec) (raise-syntax-error (cadr spec)