Integrate CALLER argument in guarantees.

diff --git a/src/runtime/sysmac.scm b/src/runtime/sysmac.scm
index b93fa74f9ef183533380278331f45147ff505371..309b956dc20d082796567484645880e2c1cd90ad 100644 (file)
--- 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)