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

v5.0.99.2: proxy' -> impersonator'

Browse Source 
original commit: 7f67b6569c780f554bfeb8b9641ec59005c775c4
This commit is contained in:
Matthew Flatt 2010-11-08 06:23:16 -07:00
parent ea1269a0c2
commit f5c7a9f7a5
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/private/contract-arrow.rkt
View File

@ -50,7 +50,7 @@
(apply values res-checker kwd-vals args)) (apply values res-checker kwd-vals args))
(λ args (λ args
(apply values res-checker args))) (apply values res-checker args)))
proxy-prop:contracted ctc) impersonator-prop:contracted ctc)
(raise-blame-error blame val "expected a procedure")))))) (raise-blame-error blame val "expected a procedure"))))))
(define ctc (define ctc
(if (and (chaperone-contract? rngs-x) ...) (if (and (chaperone-contract? rngs-x) ...)
@ -60,7 +60,7 @@
#:first-order procedure?) #:first-order procedure?)
(make-contract (make-contract
#:name name #:name name
#:projection (proj proxy-procedure) #:projection (proj impersonate-procedure)
#:first-order procedure?))) #:first-order procedure?)))
ctc)))])) ctc)))]))