provide tc-result? for contracts

svn: r11734
This commit is contained in:
Sam Tobin-Hochstadt 2008-09-13 22:48:19 +00:00
parent 49c816cfaa
commit 302e28da62

View File

@ -20,6 +20,7 @@
instantiate-poly instantiate-poly
instantiate-poly-dotted instantiate-poly-dotted
tc-result: tc-result:
tc-result?
tc-result-equal? tc-result-equal?
effects-equal? effects-equal?
tc-result-t tc-result-t