From 2d734f452792f9609eaaa7cb289118bf2577a843 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 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))
-- 
2.25.1