From 5801ba689df8bd58578a89dfa706d2c7ab42b618 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Fri, 12 Mar 2010 15:44:17 -0800
Subject: [PATCH] Add a declaration.

---
 src/sf/chtype.scm | 1 +
 1 file changed, 1 insertion(+)

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
-- 
2.25.1