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

improve rec

Browse Source 
svn: r9038
This commit is contained in:
Eli Barzilay 2008-03-21 13:09:45 +00:00
parent 152b7a3ed8
commit a93dbcb135
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/mzlib/etc.ss
View File

@ -124,12 +124,12 @@
#`(letrec ((name (lambda (id ...) body ...))) #`(letrec ((name (lambda (id ...) body ...)))
#,(syntax-property #'name 'inferred-name (syntax-e #'name)))] #,(syntax-property #'name 'inferred-name (syntax-e #'name)))]
[(rec (name id ... . did) body ...) [(rec (name id ... . did) body ...)
(andmap identifier? (syntax->list #'(name id ...))) (andmap identifier? (syntax->list #'(name did id ...)))
#`(letrec ((name (lambda (id ... . did) body ...))) #`(letrec ((name (lambda (id ... . did) body ...)))
#,(syntax-property #'name 'inferred-name (syntax-e #'name)))] #,(syntax-property #'name 'inferred-name (syntax-e #'name)))]
[_ [_
(raise-syntax-error (raise-syntax-error
#f "expects either a variable followed by an expresion, or a (possibly dotted) sequence of variables followed by a body" stx)])) #f "expects either an identifier followed by an expresion, or a (possibly dotted) sequence of identifiers followed by a body" stx)]))
(define-syntax (evcase stx) (define-syntax (evcase stx)
(syntax-case stx () (syntax-case stx ()