From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 3 Mar 2010 15:52:43 +0000 (-0800)
Subject: Integrate GUARANTEE-STRING.
X-Git-Tag: 20100708-Gtk~133
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d906852841dc1f1c846b9f78470afb9657d4a64c;p=mit-scheme.git

Integrate GUARANTEE-STRING.
---

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index ffa5153b5..133cf9636 100644
--- 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")