From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 27 Jul 1996 05:13:49 +0000 (+0000)
Subject: Changed coercion code to use the global procedure
X-Git-Tag: 20090517-FFI~5414
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f4159653264a9deb09ad3ed324f482a128117f11;p=mit-scheme.git

Changed coercion code to use the global procedure
COERCE-TO-COMPILED-PROCEDURE rather than the primitive.
---

diff --git a/v8/src/compiler/midend/coerce.scm b/v8/src/compiler/midend/coerce.scm
index 1a19e9c41..e48ec1096 100644
--- a/v8/src/compiler/midend/coerce.scm
+++ b/v8/src/compiler/midend/coerce.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: coerce.scm,v 1.5 1995/05/19 03:41:26 adams Exp $
+$Id: coerce.scm,v 1.6 1996/07/27 05:13:49 adams Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -195,7 +195,12 @@ wins by about 10%.
 		     (LOOKUP ,name))
 	       '#F)
 	   (LOOKUP ,name)
-	   (CALL ',coerce-to-compiled '#F (LOOKUP ,name) ',len)))))
+	   (CALL ',%invoke-remote-cache
+		 '#F
+		 '(coerce-to-compiled-procedure 2)
+		 'bogus-execute-cell
+		 (LOOKUP ,name)
+		 ',len)))))
 
 (define (coerce/rewrite-call! call arity coerced-operator)
   (form/rewrite! call