From e5c24723b01835d612e8fdef73cb81d641a58d79 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Dec 2001 20:46:36 +0000 Subject: [PATCH] Replace magic code by reference to MAKE-UNMAPPED-UNBOUND-REFERENCE-TRAP. --- v7/src/runtime/symbol.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) 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 -- 2.25.1