Add a declaration.

diff --git a/src/sf/chtype.scm b/src/sf/chtype.scm
index 4f404aa8b6c3ad5a410d5e9e005c95c8a832b04d..631ca667613fe7b6a001eb93e7578b874c53c6b4 100644 (file)
--- 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