Integrate DISCRIMINATE-PROCEDURE

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index b9a487db78a4dc46039b06adbb8aea5126c67719..c2baffec93fec2c9880304920221e83509f96f4e 100644 (file)
--- a/src/runtime/uproc.scm
+++ b/src/runtime/uproc.scm
@@ -73,8 +73,10 @@ USA.
                             (compiled-procedure/environment procedure)))
                          'PROCEDURE-COMPONENTS))
 
+(declare (integrate-operator discriminate-procedure))
 (define (discriminate-procedure procedure if-primitive if-compound if-compiled
                                caller)
+  (declare (integrate if-primitive if-compound if-compiled caller))
   (let ((procedure* (skip-entities procedure)))
     (cond ((%primitive-procedure? procedure*) (if-primitive procedure*))
          ((%compound-procedure? procedure*) (if-compound procedure*))