alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implicit ls in current directory.

Browse Source
This commit is contained in:
Brad Nelson
2023-02-06 20:34:50 -08:00
parent 44d550dab0
commit 5a40463464
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/filetools.fs
View File

@ -55,7 +55,8 @@ forth definitions internals
DEFINED? read-dir [IF] DEFINED? read-dir [IF]
: ls ( "path" -- ) : 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 dh read-dir dup 0= if
2drop dh close-dir throw exit 2drop dh close-dir throw exit
then type cr then type cr