From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 17 Apr 1992 22:55:50 +0000 (+0000)
Subject: Add defn. of ucode-primitive so the file can just be loaded without
X-Git-Tag: 20090517-FFI~9475
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff5143181debfc1e197a305912a1c2ae85677d4b;p=mit-scheme.git

Add defn. of ucode-primitive so the file can just be loaded without
having to syntax it.
---

diff --git a/v7/src/compiler/base/crsend.scm b/v7/src/compiler/base/crsend.scm
index 5b007ecf8..ee4e0401e 100644
--- a/v7/src/compiler/base/crsend.scm
+++ b/v7/src/compiler/base/crsend.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.6 1991/11/04 20:35:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.7 1992/04/17 22:55:50 jinx Exp $
 
-Copyright (c) 1988-91 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -110,13 +110,16 @@ MIT in each case. |#
 		  (cons
 		   label
 		   (with-absolutely-no-interrupts
-		    (lambda ()
-		      ((ucode-primitive primitive-object-set-type)
-		       type-code:compiled-entry
-		       (make-non-pointer-object
-			(+ (cdr (or (assq label label-bindings)
-				    (error "Missing entry point" label)))
-			   (object-datum code-vector))))))))
+		     (lambda ()
+		       (let-syntax ((ucode-primitive
+				     (macro (name)
+				       (make-primitive-procedure name))))
+			 ((ucode-primitive primitive-object-set-type)
+			  type-code:compiled-entry
+			  (make-non-pointer-object
+			   (+ (cdr (or (assq label label-bindings)
+				       (error "Missing entry point" label)))
+			      (object-datum code-vector)))))))))
 		(cc-vector/entry-points cc-vector)))))
     (let ((label->expression
 	   (lambda (label)