Integrate GUARANTEE-STRING.

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index ffa5153b591726c3cf92376efd3a02e2f5e006c6..133cf96366bd2eba5d968389d69aad84fd907b52 100644 (file)
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -1635,6 +1635,7 @@ USA.
 ;; meaningful message.  Structuring the code this way significantly
 ;; reduces code bloat from large integrated procedures.
 
+(declare (integrate-operator guarantee-string guarantee-xstring))
 (define-guarantee string "string")
 (define-guarantee xstring "xstring")