From: Joe Marshall <eval.apply@gmail.com>
Date: Fri, 19 Oct 2012 20:34:20 +0000 (-0700)
Subject: Integrate CALLER argument in guarantees.
X-Git-Tag: release-9.2.0~211
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=906194eab426716cf7f7fb6884b53370a2efa9fd;p=mit-scheme.git

Integrate CALLER argument in guarantees.
---

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index b93fa74f9..309b956dc 100644
--- a/src/runtime/sysmac.scm
+++ b/src/runtime/sysmac.scm
@@ -85,6 +85,7 @@ USA.
 		 (e-name (symbol 'error:not- root)))
 	     `(BEGIN
 		(DEFINE (,g-name OBJECT #!OPTIONAL CALLER)
+		  (DECLARE (INTEGRATE CALLER))
 		  (IF (NOT (,(close-syntax p-name environment) OBJECT))
 		      (,(close-syntax e-name environment) OBJECT CALLER)))
 		(DEFINE (,e-name OBJECT #!OPTIONAL CALLER)