From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 29 Jun 1993 04:35:29 +0000 (+0000)
Subject: Fix check that only allows primitives and compiled procedures.
X-Git-Tag: 20090517-FFI~8262
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=356b75dc634d0f27199c0c1479a1e8c8512781d3;p=mit-scheme.git

Fix check that only allows primitives and compiled procedures.
Any procedures are legal here.
---

diff --git a/v7/src/compiler/fgopt/simapp.scm b/v7/src/compiler/fgopt/simapp.scm
index 315aa6e5e..6a1bf1370 100644
--- a/v7/src/compiler/fgopt/simapp.scm
+++ b/v7/src/compiler/fgopt/simapp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/simapp.scm,v 4.5 1989/08/21 19:34:13 cph Rel $
+$Id: simapp.scm,v 4.6 1993/06/29 04:35:29 gjr Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -58,7 +58,7 @@ MIT in each case. |#
   (make-method-table rvalue-types
 		     (lambda (old operator apply-operator)
 		       old apply-operator
-		       (warn "Unapplicable operator" operator)
+		       (warn "Inapplicable operator" operator)
 		       operator)))
 
 (let ((processor
@@ -114,8 +114,7 @@ MIT in each case. |#
 		 (if (not
 		      (cond ((eq? value compiled-error-procedure)
 			     (positive? argument-count))
-			    ((or (primitive-procedure? value)
-				 (compiled-procedure? value))
+			    ((procedure? value)
 			     (procedure-arity-valid? value argument-count))
 			    (else
 			     (if (not (unassigned-reference-trap? value))