From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 21 May 2018 00:27:50 +0000 (-0700)
Subject: Change symbol<? to sort interned symbols before uninterned.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~18
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b500703872cfab9cf5a0fe5e11f3e63cc815bbd;p=mit-scheme.git

Change symbol<? to sort interned symbols before uninterned.
---

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 43e31cb69..b6919bacc 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -90,10 +90,15 @@ USA.
   (string-hash (symbol->string symbol) modulus))
 
 (define (symbol<? x y)
-  (string<? (symbol->string x) (symbol->string y)))
+  (let ((sx (symbol->string x))
+	(sy (symbol->string y)))
+    (or (string<? sx sy)
+	(and (string=? sx sy)
+	     (interned-symbol? sx)
+	     (uninterned-symbol? sy)))))
 
 (define (symbol>? x y)
-  (string<? (symbol->string y) (symbol->string x)))
+  (symbol<? y x))
 
 (define generate-uninterned-symbol
   (let ((mutex (make-thread-mutex))