suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: cd0e574a73617fe69f2b220bba9b900030c9967b
This commit is contained in:
Matthew Flatt 2004-02-05 23:01:22 +00:00
parent 8ffbdfad9b
commit ae1ed67424
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -6752,7 +6752,7 @@
;; ASCII non-letterdigit to the end ;; ASCII non-letterdigit to the end
(quicksort l (lambda (a b) (quicksort l (lambda (a b)
(let ([a-sp? (char=? #\space (string-ref a 0))] (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)] [a-ugly? (and (regexp-match re:ugly-start a) #t)]
[b-ugly? (and (regexp-match re:ugly-start b) #t)]) [b-ugly? (and (regexp-match re:ugly-start b) #t)])
(cond (cond

1
collects/mred/private/kernel.ss
View File

@ -767,6 +767,7 @@
write-to-file write-to-file
read-from-file read-from-file
get-character get-character
get-unicode
get-text get-text
get-snip-position get-snip-position
get-snip-position-and-location get-snip-position-and-location