Implicit ls in current directory.

2023-02-06 20:34:50 -08:00
parent 44d550dab0
commit 5a40463464
1 changed files with 2 additions and 1 deletions
--- a/common/filetools.fs
+++ b/common/filetools.fs
@ -55,7 +55,8 @@ forth definitions internals

 DEFINED? read-dir [IF]
 : ls ( "path" -- )
-  bl parse open-dir throw { dh } begin
+  bl parse dup 0= if 2drop s" ." then
+  open-dir throw { dh } begin
    dh read-dir dup 0= if
      2drop dh close-dir throw exit
    then type cr