From efa2ebc6cca2c27ebd9c131d93346c406a961fab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jul 2019 04:33:57 -0400
Subject: [PATCH] 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.
---
 src/runtime/symbol.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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))
-- 
2.25.1