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 58dbbfcaffe25c622a97e0eecef420d547f2d538..4e18717aa4e05ba520e050b1a1d07befa7fef746 100644 (file)
--- 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)))))))