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

Reuse `case-lambda' syntax in optimizer.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-23 12:07:26 -04:00
parent 92fa4a8d58
commit d6f1c35e1b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/optimizer.rkt
View File

@ -49,7 +49,7 @@
(cons (car l) (cons (car l)
(map (optimize) (cdr l))))) (map (optimize) (cdr l)))))
#'([formals e ...] ...)) #'([formals e ...] ...))
#:with opt (syntax/loc/origin this-syntax #'op (case-lambda opt-parts ...))) #:with opt (syntax/loc/origin this-syntax #'op (op opt-parts ...)))
(pattern ((~and op (~or (~literal let-values) (~literal letrec-values))) (pattern ((~and op (~or (~literal let-values) (~literal letrec-values)))
([ids e-rhs:expr] ...) e-body:expr ...) ([ids e-rhs:expr] ...) e-body:expr ...)
#:with (opt-rhs ...) (syntax-map (optimize) #'(e-rhs ...)) #:with (opt-rhs ...) (syntax-map (optimize) #'(e-rhs ...))