provide tc-result? for contracts

svn: r11734 original commit: 302e28da620581ce928a346e43f9d3109c694f0c
2008-09-13 22:48:19 +00:00 · 2008-09-13 22:48:19 +00:00 · c08c477ba6
commit c08c477ba6
parent a17e62cca0
1 changed files with 2 additions and 1 deletions
--- a/collects/typed-scheme/private/type-utils.ss
+++ b/collects/typed-scheme/private/type-utils.ss
@ -19,7 +19,8 @@
         ret
         instantiate-poly
         instantiate-poly-dotted
-         tc-result: 
+         tc-result:
+         tc-result?
         tc-result-equal? 
         effects-equal?
         tc-result-t