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-Tag: mit-scheme-pucked-10.1.12~7^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d734f452792f9609eaaa7cb289118bf2577a843;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 b3867ddd1..c355f4636 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -91,12 +91,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))