Return a result.

svn: r9703
2008-05-06 22:05:05 +00:00 · 2008-05-06 22:05:05 +00:00 · e5e669e768
commit e5e669e768
parent f466da04d1
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/check-subforms-unit.ss
+++ b/collects/typed-scheme/private/check-subforms-unit.ss
@ -90,7 +90,7 @@
           (loop #'a)
           (loop #'b))]
        [_ (void)])))
-  expected)
+  (ret expected))

 ;; typecheck the expansion of a with-handlers form
 ;; syntax -> type