From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 00:47:24 +0000 (+0000)
Subject: Fix OS/2 directory sorting algorithm to be normal alphabetic sorting
X-Git-Tag: 20090517-FFI~6815
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d9823ae548c7febf51a9cdc59b7ec6f713fb5f4;p=mit-scheme.git

Fix OS/2 directory sorting algorithm to be normal alphabetic sorting
on the FILE-NAMESTRING.
---

diff --git a/v7/src/runtime/os2dir.scm b/v7/src/runtime/os2dir.scm
index 8d44cc557..21a23b90f 100644
--- a/v7/src/runtime/os2dir.scm
+++ b/v7/src/runtime/os2dir.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: os2dir.scm,v 1.3 1994/12/19 21:08:45 cph Exp $
+$Id: os2dir.scm,v 1.4 1995/01/06 00:47:24 cph Exp $
 
-Copyright (c) 1994 Massachusetts Institute of Technology
+Copyright (c) 1994-95 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -64,13 +64,4 @@ MIT in each case. |#
 	      result))))))
 
 (define (pathname<? x y)
-  (or (component<? (pathname-name x) (pathname-name y))
-      (and (equal? (pathname-name x) (pathname-name y))
-	   (component<? (pathname-type x) (pathname-type y)))))
-
-(define (component<? x y)
-  (and y
-       (or (not x)
-	   (and (string? y)
-		(or (not (string? x))
-		    (string<? x y))))))
\ No newline at end of file
+  (string-ci<? (file-namestring x) (file-namestring y)))
\ No newline at end of file