SYMBOL=? was dumb mistake. Deleted.

diff --git a/v7/src/cref/object.scm b/v7/src/cref/object.scm
index 3a11491ed8e24dcbb52704de04263d16336d1a91..ff55ae537e576a916deb45e09c25e6bb6a617e7d 100644 (file)
--- 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 f2895315377ad69f3d30af7d807002e98f393304..0ed655e02552260183b9204ca13134c518020459 100644 (file)
--- 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)))