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

missed a place where I need one fewer argument to the 'blame' constructor

Browse Source
This commit is contained in:
Robby Findler 2011-02-12 20:31:49 -06:00
parent 5e70dc863e
commit d2eb80be35
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/contract/private/legacy.rkt
View File

@ -58,8 +58,7 @@
name name
(unpack-blame (if original? pos neg)) (unpack-blame (if original? pos neg))
(unpack-blame (if original? neg pos)) (unpack-blame (if original? neg pos))
original? original?)))))
(unpack-blame (if original? neg pos)))))))
(define (legacy-property name) (define (legacy-property name)
(define-values [ prop pred get ] (define-values [ prop pred get ]