From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Fri, 12 Mar 2010 23:44:17 +0000 (-0800)
Subject: Add a declaration.
X-Git-Tag: 20100708-Gtk~105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5801ba689df8bd58578a89dfa706d2c7ab42b618;p=mit-scheme.git

Add a declaration.
---

diff --git a/src/sf/chtype.scm b/src/sf/chtype.scm
index 4f404aa8b..631ca6676 100644
--- a/src/sf/chtype.scm
+++ b/src/sf/chtype.scm
@@ -54,6 +54,7 @@ USA.
 (declare (integrate-operator change-type/object))
 
 (define (change-type/object enumeration object)
+  (declare (integrate enumeration))
   (set-object/enumerand!
    object
    (enumeration/name->enumerand enumeration