Create procedure to generate unassigned objects.

diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm
index 3a3fa5e81781259e08c58678c0c2d2841ac54598..aaa794ace9e24790b3a453fe90420c774f8f90bb 100644 (file)
--- a/v7/src/runtime/packag.scm
+++ b/v7/src/runtime/packag.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: packag.scm,v 14.37 2001/12/18 19:35:50 cph Exp $
+$Id: packag.scm,v 14.38 2001/12/18 20:42:50 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -400,9 +400,7 @@ USA.
          (vv
           ((ucode-primitive vector-cons)
            n
-           ((ucode-primitive primitive-object-set-type)
-            (ucode-type reference-trap)
-            0))))
+           (make-unmapped-unassigned-reference-trap))))
       (let loop ((name-sources name-sources) (i 1))
        (if (pair? name-sources)
            (let ((v (car (car name-sources)))
@@ -434,8 +432,10 @@ USA.
   (if (lexical-unbound? environment name)
       (local-assignment environment
                        name
-                       (primitive-object-set-type (ucode-type reference-trap)
-                                                  0))))
+                       (make-unmapped-unassigned-reference-trap))))
+
+(define-integrable (make-unmapped-unassigned-reference-trap)
+  (primitive-object-set-type (ucode-type reference-trap) 0))
 
 (define-primitives
   lexical-unbound?

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 1014ae007eb7f7331caa31b3139ea0269bac1a45..7824eb522ae51365242d28c80ee6a581ed3cd70f 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.385 2001/12/18 18:39:52 cph Exp $
+$Id: runtime.pkg,v 14.386 2001/12/18 20:44:13 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -2658,6 +2658,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          cached-reference-trap?
          make-unassigned-reference-trap
          make-unbound-reference-trap
+         make-unmapped-unassigned-reference-trap
+         make-unmapped-unbound-reference-trap
          map-reference-trap
          map-reference-trap-value
          reference-trap-kind