Change guarantee-foo to return the object.

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index 0d45738c042103915f2eda33113f42a12c02be66..bf66069453575ed3e4cc1a0d1f18024732b18517 100644 (file)
--- a/src/runtime/sysmac.scm
+++ b/src/runtime/sysmac.scm
@@ -87,7 +87,8 @@ USA.
                (DEFINE (,g-name OBJECT #!OPTIONAL CALLER)
                  (DECLARE (INTEGRATE CALLER))
                  (IF (NOT (,(close-syntax p-name environment) OBJECT))
-                     (,(close-syntax e-name environment) OBJECT CALLER)))
+                     (,(close-syntax e-name environment) OBJECT CALLER))
+                 OBJECT)
                (DEFINE (,e-name OBJECT #!OPTIONAL CALLER)
                  (ERROR:WRONG-TYPE-ARGUMENT OBJECT
                                             ,desc