From 4732e90b29c19243d7c9f4bf1e476d23b9259469 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 13 Aug 2010 05:15:20 -0500 Subject: [PATCH] removed some commented out code (whose purpose was unclear) --- collects/racket/contract/private/arrow.rkt | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt index e6fc1c844f..69dff0b9d5 100644 --- a/collects/racket/contract/private/arrow.rkt +++ b/collects/racket/contract/private/arrow.rkt @@ -615,9 +615,6 @@ v4 todo: (if rng-ctc #`(apply-projections ((rng rng-proj) ...) #,call) - #; - #`(let-values ([(rng ...) #,call]) - (values (rng-proj rng) ...)) call)))))) ctc))))))))))])) @@ -1362,18 +1359,6 @@ v4 todo: ; ; -#; -(define-syntax (apply-projection stx) - (syntax-case stx () - [(_ f v) #'(f v)])) - -#; -(define-syntax (apply-projections stx) - (syntax-case stx () - [(_ ((x f) ...) e) - #'(let-values ([(x ...) e]) - (values (f x) ...))])) - (define-syntax (apply-projections stx) (syntax-case stx () [(_ ((x f) ...) e)