From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 20:46:59 +0000 (+0000)
Subject: Create procedures to generate unassigned and unbound objects.
X-Git-Tag: 20090517-FFI~2390
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb573f35d263f34d1d204413ecfb320cb2423e8a;p=mit-scheme.git

Create procedures to generate unassigned and unbound objects.
---

diff --git a/v7/src/runtime/urtrap.scm b/v7/src/runtime/urtrap.scm
index 03404646f..3fcac1e54 100644
--- a/v7/src/runtime/urtrap.scm
+++ b/v7/src/runtime/urtrap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: urtrap.scm,v 14.6 2001/08/03 20:29:59 cph Exp $
+$Id: urtrap.scm,v 14.7 2001/12/18 20:46:59 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -79,6 +79,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   (and (reference-trap? object)
        (fix:= 0 (reference-trap-kind object))))
 
+(define (make-unmapped-unassigned-reference-trap)
+  (primitive-object-set-type (ucode-type reference-trap) 0))
+
 (define (unmapped-unassigned-reference-trap? getter)
   (and (primitive-object-type? (ucode-type reference-trap) (getter))
        (fix:= 0 (object-datum (getter)))))
@@ -90,6 +93,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   (and (reference-trap? object)
        (fix:= 2 (reference-trap-kind object))))
 
+(define (make-unmapped-unbound-reference-trap)
+  (primitive-object-set-type (ucode-type reference-trap) 2))
+
 (define (unmapped-unbound-reference-trap? getter)
   (and (primitive-object-type? (ucode-type reference-trap) (getter))
        (fix:= 2 (object-datum (getter)))))