1 files changed, 8 insertions, 8 deletions
diff --git a/dirs.scm b/dirs.scm
index 0592021..4c5769f 100644
--- a/dirs.scm
+++ b/dirs.scm
@@ -33,12 +33,12 @@
 ;;If @0 cannot be supported by the platform, then #f is returned.
 (define current-directory
   (case (software-type)
-    ;;((AMIGA)				)
-    ;;((MACOS THINKC)			)
-    ((MS-DOS WINDOWS ATARIST OS/2) (lambda () (system->line "cd")))
-    ;;((NOSVE)				)
-    ((UNIX COHERENT PLAN9) (lambda () (system->line "pwd")))
-    ;;((VMS)				)
+    ;;((amiga)				)
+    ;;((macos thinkc)			)
+    ((ms-dos windows atarist os/2) (lambda () (system->line "cd")))
+    ;;((nosve)				)
+    ((unix coherent plan9) (lambda () (system->line "pwd")))
+    ;;((vms)				)
     (else #f)))
 
 ;;@body
@@ -49,9 +49,9 @@
 
 (define (dir:lister dirname tmp)
   (case (software-type)
-    ((UNIX COHERENT PLAN9)
+    ((unix coherent plan9)
      (zero? (system (string-append "ls '" dirname "' > " tmp))))
-    ((MS-DOS WINDOWS OS/2 ATARIST)
+    ((ms-dos windows os/2 atarist)
      (zero? (system (string-append "DIR /B \"" dirname "\" > " tmp))))
     (else (slib:error (software-type) 'list?))))