From 518b613905799681dfa0a936d4c4ff594be133f8 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 13 Jun 2011 15:46:36 -0700 Subject: [PATCH] Integrate DISCRIMINATE-PROCEDURE --- src/runtime/uproc.scm | 2 ++ 1 file changed, 2 insertions(+) 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*)) -- 2.25.1