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

Change legacy commands to correctly use negative blame also for user blame.

Browse Source
This commit is contained in:
Stevie Strickland 2010-04-30 09:51:35 -04:00
parent f20d3db75f
commit 5e4386ba13
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/racket/contract/private/legacy.rkt
View File

@ -22,7 +22,7 @@
(unpack-blame pos)
"<<unknown party>>"
#t
name)
"<<unknown party>>")
x
fmt
args))
@ -60,7 +60,7 @@
(unpack-blame (if original? pos neg))
(unpack-blame (if original? neg pos))
original?
name)))))
(unpack-blame (if original? neg pos)))))))
(define (legacy-property name)
(define-values [ prop pred get ]