Switch dir over to use the new static filesystem dir methods.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@siriusit.co.uk> git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@817 f158a5a8-5612-0410-a976-696ce0be7e32
2024-02-13 08:34:06 +08:00 · 2010-07-11 18:57:19 +00:00
parent a5511ad95c
commit f1e745579c
3 changed files with 24 additions and 2 deletions
--- a/forth/debugging/client.fs
+++ b/forth/debugging/client.fs
@@ -91,11 +91,12 @@ variable file-size

 : dir ( "{paths}<cr>" -- )
  linefeed parse
+  split-path-device
  open-dev dup 0= if
    drop
    exit
  then
-  dup
+  -rot 2 pick
  " dir" rot ['] $call-method catch
  if
    3drop