From ae1ed67424fcbf02f69382b2d970f39d1b67d83c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 5 Feb 2004 23:01:22 +0000 Subject: [PATCH] . original commit: cd0e574a73617fe69f2b220bba9b900030c9967b --- collects/mred/mred.ss | 2 +- collects/mred/private/kernel.ss | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index baeb49a8..e02a9c86 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -6752,7 +6752,7 @@ ;; ASCII non-letterdigit to the end (quicksort l (lambda (a b) (let ([a-sp? (char=? #\space (string-ref a 0))] - [b-sp? (char=? #\space (string-ref a 0))] + [b-sp? (char=? #\space (string-ref b 0))] [a-ugly? (and (regexp-match re:ugly-start a) #t)] [b-ugly? (and (regexp-match re:ugly-start b) #t)]) (cond diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 45adee16..bb44e49b 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -767,6 +767,7 @@ write-to-file read-from-file get-character + get-unicode get-text get-snip-position get-snip-position-and-location