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 9e854528f1bbc861af82ac8b507d71025194253f..0d6bf534e2a40edd5d3d2e50888b3ceb3c46e31d 100644 (file)
--- 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))