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

removed some commented out code (whose purpose was unclear)

Browse Source
This commit is contained in:
Robby Findler 2010-08-13 05:15:20 -05:00
parent 553648a5a6
commit 4732e90b29
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/racket/contract/private/arrow.rkt
View File

@ -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)