.

original commit: cd0e574a73617fe69f2b220bba9b900030c9967b
2004-02-05 23:01:22 +00:00 · 2004-02-05 23:01:22 +00:00 · ae1ed67424
commit ae1ed67424
parent 8ffbdfad9b
2 changed files with 2 additions and 1 deletions
--- 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
--- 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