From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 09:09:15 +0000 (-0800)
Subject: Change guarantee-foo to return the object.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~101
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8a6449e468300322287fd8d83e8548215b5140d6;p=mit-scheme.git

Change guarantee-foo to return the object.
---

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index 0d45738c0..bf6606945 100644
--- 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