From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Mar 2008 18:46:41 +0000 (+0000)
Subject: Can't use UCODE-PRIMITIVE in this file; it breaks the initial build.
X-Git-Tag: 20090517-FFI~305
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4712364ef0c30110657334c42d75cb43c1caff1;p=mit-scheme.git

Can't use UCODE-PRIMITIVE in this file; it breaks the initial build.
---

diff --git a/v7/src/edwin/xform.scm b/v7/src/edwin/xform.scm
index 58dbbfcaf..4e18717aa 100644
--- a/v7/src/edwin/xform.scm
+++ b/v7/src/edwin/xform.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xform.scm,v 1.19 2008/02/14 02:11:51 cph Exp $
+$Id: xform.scm,v 1.20 2008/03/08 18:46:41 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -64,7 +64,7 @@ USA.
   (let ((entry (assq (scode-variable-name variable) transforms)))
     (if (not entry)
 	variable
-	(make-combination (ucode-primitive vector-ref)
+	(make-combination (make-primitive-procedure 'VECTOR-REF)
 			  (list name-of-self (cdr entry))))))
 
 (define (transform-assignment transforms assignment)
@@ -74,7 +74,7 @@ USA.
 	    (value (transform-expression transforms value)))
 	(if (not entry)
 	    (make-assignment name value)
-	    (make-combination (ucode-primitive vector-set!)
+	    (make-combination (make-primitive-procedure 'VECTOR-SET!)
 			      (list name-of-self
 				    (cdr entry)
 				    value)))))))