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 b3867ddd1b3f1ebcdaccf4b3f5b00eaf13a8bd40..c355f4636adb913fe38961d6fd35a60753f050e7 100644 (file)
--- 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))