From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Jan 1997 00:18:19 +0000 (+0000)
Subject: Use new directory reader to get better attribute information from
X-Git-Tag: 20090517-FFI~5268
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6359546e259d18de9b60b7ae8d6fe7a5302046f;p=mit-scheme.git

Use new directory reader to get better attribute information from
Win32.  This requires microcode 11.156 and runtime 14.172.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 0c54e31f8..cb46e5ec0 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.43 1997/01/05 23:46:13 cph Exp $
+;;;	$Id: dos.scm,v 1.44 1997/01/06 00:18:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-97 Massachusetts Institute of Technology
 ;;;
@@ -251,7 +251,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
    name))
 
 (define (win32/read-dired-files file all-files?)
-  (map (lambda (entry) (cons (->namestring (car entry)) (cdr entry)))
+  (map (lambda (entry) (cons (file-namestring (car entry)) (cdr entry)))
        (let ((entries (directory-read file #f #t)))
 	 (if all-files?
 	     entries