From d6f1c35e1b615e3fc554e310de7ba2bb18217dd6 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 23 Aug 2011 12:07:26 -0400 Subject: [PATCH] Reuse `case-lambda' syntax in optimizer. --- collects/typed-scheme/optimizer/optimizer.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/optimizer/optimizer.rkt b/collects/typed-scheme/optimizer/optimizer.rkt index 594941e026..8a23a82d8a 100644 --- a/collects/typed-scheme/optimizer/optimizer.rkt +++ b/collects/typed-scheme/optimizer/optimizer.rkt @@ -49,7 +49,7 @@ (cons (car l) (map (optimize) (cdr l))))) #'([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))) ([ids e-rhs:expr] ...) e-body:expr ...) #:with (opt-rhs ...) (syntax-map (optimize) #'(e-rhs ...))