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

.

Browse Source 
original commit: c448e159586667c49601ce45d56f0eca0916c099
This commit is contained in:
Robby Findler 2003-09-26 21:43:04 +00:00
parent caf4d822ce
commit d4d65ef3ed
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/seqcontract.ss
View File

@ -83,6 +83,11 @@
[formals [formals
(cond (cond
[(predicate-name) [(predicate-name)
call
;; Doesn't do post-condition checking,
;; since it isn't thread safe
#;
(begin0 (begin0
call call
(unless (or (result-predicate-name) ...) (unless (or (result-predicate-name) ...)
@ -91,7 +96,8 @@
"expected one of states ~s after calling ~s in state ~s" "expected one of states ~s after calling ~s in state ~s"
'(result-predicate-state ...) '(result-predicate-state ...)
'method-name 'method-name
'state-name)))] 'state-name)))
]
... ...
[else [else
(sequence-contract-violation (sequence-contract-violation