From e5e669e768a0f32b6eaa499adfe0b652bba6e436 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 6 May 2008 22:05:05 +0000
Subject: [PATCH] Return a result.

svn: r9703
---
 collects/typed-scheme/private/check-subforms-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/typed-scheme/private/check-subforms-unit.ss b/collects/typed-scheme/private/check-subforms-unit.ss
index 059ed0c882..3b3a5caeed 100644
--- 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