dir command cleanup

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@635 f158a5a8-5612-0410-a976-696ce0be7e32

forth/debugging/client.fs

@@ -308,20 +308,18 @@ variable bootinfo-size
   ;
 
 : dir ( "{paths}<cr>" -- )
-  linefeed parse 2dup
+  linefeed parse
   open-dev dup 0= if
-    3drop
+    drop
     exit
   then
-  dup >r
-  dup ihandle>phandle " dir" rot find-method ( xt 0|1 )
+  dup
+  " dir" rot ['] $call-method catch
   if
-    swap call-package
-  else
     3drop
     cr ." Cannot find dir for this package"
   then
-  r> close-dev
+  close-dev
 ;
 
 : go    ( -- )

modules/filesystems.c

@@ -297,16 +297,8 @@ files_block_size( files_info_t *dummy )
 static void
 files_dir( files_info_t *mi )
 {
-	fs_ops_t *fs = do_open( my_parent() );
-	char *path = pop_fstr_copy();
-
-	if (!path)
-		return;
-
-	if (fs->dir)
-		fs->dir(mi->file);
-
-	free(path);
+	if (mi->fs->dir)
+		mi->fs->dir(mi->file);
 }
 
 static void