From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 13 Jun 2011 22:46:36 +0000 (-0700)
Subject: Integrate DISCRIMINATE-PROCEDURE
X-Git-Tag: release-9.1.0~22^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=518b613905799681dfa0a936d4c4ff594be133f8;p=mit-scheme.git

Integrate DISCRIMINATE-PROCEDURE
---

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index b9a487db7..c2baffec9 100644
--- 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*))