From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Oct 1993 00:00:56 +0000 (+0000)
Subject: SYMBOL=? was dumb mistake.  Deleted.
X-Git-Tag: 20090517-FFI~7777
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=08560e187c3828cacd66f3e05858a1aacd3aff24;p=mit-scheme.git

SYMBOL=? was dumb mistake.  Deleted.
---

diff --git a/v7/src/cref/object.scm b/v7/src/cref/object.scm
index 3a11491ed..ff55ae537 100644
--- a/v7/src/cref/object.scm
+++ b/v7/src/cref/object.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: object.scm,v 1.6 1993/10/11 23:31:42 cph Exp $
+$Id: object.scm,v 1.7 1993/10/12 00:00:56 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -71,8 +71,8 @@ MIT in each case. |#
   (initialization false read-only true)
   parent
   (children '())
-  (bindings (make-rb-tree symbol=? symbol<?) read-only true)
-  (references (make-rb-tree symbol=? symbol<?) read-only true))
+  (bindings (make-rb-tree eq? symbol<?) read-only true)
+  (references (make-rb-tree eq? symbol<?) read-only true))
 
 (define (make-package name file-cases initialization parent)
   (let ((files
diff --git a/v7/src/runtime/symbol.scm b/v7/src/runtime/symbol.scm
index f28953153..0ed655e02 100644
--- a/v7/src/runtime/symbol.scm
+++ b/v7/src/runtime/symbol.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: symbol.scm,v 1.2 1993/10/11 23:16:41 cph Exp $
+$Id: symbol.scm,v 1.3 1993/10/12 00:00:11 cph Exp $
 
 Copyright (c) 1992-93 Massachusetts Institute of Technology
 
@@ -90,19 +90,6 @@ MIT in each case. |#
 (define-integrable (symbol-hash-mod symbol modulus)
   (string-hash-mod (symbol-name symbol) modulus))
 
-(define (symbol=? x y)
-  (or (eq? x y)
-      (and (uninterned-symbol? x)
-	   (uninterned-symbol? y)
-	   (let ((sx (system-pair-car x))
-		 (sy (system-pair-car y)))
-	     (let ((l (string-length sx)))
-	       (and (fix:= l (string-length sy))
-		    (let loop ((i 0))
-		      (or (fix:= i l)
-			  (and (char=? (string-ref sx i) (string-ref sy i))
-			       (loop (fix:+ i 1)))))))))))
-
 (define (symbol<? x y)
   (let ((sx (system-pair-car x))
 	(sy (system-pair-car y)))