From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jul 2019 08:33:57 +0000 (-0400)
Subject: Change symbol<? to delegate to bytevector<?.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=efa2ebc6cca2c27ebd9c131d93346c406a961fab;p=mit-scheme.git

Change symbol<? to delegate to bytevector<?.

This is much faster than string comparison, which matters since symbols should
be fast.  The downside is that symbols and strings will sort somewhat
differently, but that shouldn't matter since someone can always sort them using
symbol->string.
---

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 9e854528f..0d6bf534e 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -90,12 +90,8 @@ USA.
   (string-hash (symbol->string symbol) modulus))
 
 (define (symbol<? x y)
-  (let ((sx (symbol->string x))
-	(sy (symbol->string y)))
-    (or (string<? sx sy)
-	(and (string=? sx sy)
-	     (interned-symbol? sx)
-	     (uninterned-symbol? sy)))))
+  (bytevector<? (->bytes (system-pair-car x))
+		(->bytes (system-pair-car y))))
 
 (define (symbol>? x y)
   (symbol<? y x))