From d906852841dc1f1c846b9f78470afb9657d4a64c Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 3 Mar 2010 07:52:43 -0800 Subject: [PATCH] Integrate GUARANTEE-STRING. --- src/runtime/string.scm | 1 + 1 file changed, 1 insertion(+) 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") -- 2.25.1