From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Dec 2001 20:46:36 +0000 (+0000)
Subject: Replace magic code by reference to MAKE-UNMAPPED-UNBOUND-REFERENCE-TRAP.
X-Git-Tag: 20090517-FFI~2391
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e5c24723b01835d612e8fdef73cb81d641a58d79;p=mit-scheme.git

Replace magic code by reference to MAKE-UNMAPPED-UNBOUND-REFERENCE-TRAP.
---

diff --git a/v7/src/runtime/symbol.scm b/v7/src/runtime/symbol.scm
index c274b70ce..626e8998a 100644
--- a/v7/src/runtime/symbol.scm
+++ b/v7/src/runtime/symbol.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: symbol.scm,v 1.6 2001/12/18 18:39:57 cph Exp $
+$Id: symbol.scm,v 1.7 2001/12/18 20:46:36 cph Exp $
 
 Copyright (c) 1992-2001 Massachusetts Institute of Technology
 
@@ -38,13 +38,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 (define (string->uninterned-symbol string)
   (if (not (string? string))
       (error:wrong-type-argument string "string" 'STRING->UNINTERNED-SYMBOL))
-  ((ucode-primitive system-pair-cons)
-   (ucode-type uninterned-symbol)
-   string
-   ;; Magic: must match microcode and "urtrap".
-   ((ucode-primitive primitive-object-set-type)
-    (ucode-type reference-trap)
-    2)))
+  ((ucode-primitive system-pair-cons) (ucode-type uninterned-symbol)
+				      string
+				      (make-unmapped-unbound-reference-trap)))
 
 (define (string->symbol string)
   ;; Calling STRING-COPY prevents the symbol from being affected if