From 5a404634648ecec11991caff1fca25c06ecce760 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Mon, 6 Feb 2023 20:34:50 -0800
Subject: [PATCH] Implicit ls in current directory.

---
 common/filetools.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/common/filetools.fs b/common/filetools.fs
index 8c76990..930a242 100644
--- 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