actually print value of a (lit)

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@619 f158a5a8-5612-0410-a976-696ce0be7e32
2009-11-20 15:58:55 +00:00 · 2009-11-20 15:58:55 +00:00 · 6708a79d0f
parent b1cb73b506
commit 6708a79d0f
1 changed files with 2 additions and 1 deletions
--- a/forth/debugging/see.fs
+++ b/forth/debugging/see.fs
@ -71,8 +71,9 @@
      endof

      ['] (lit) of
-        ." (lit)" 
+        ." ( lit ) h# " 
 	drop 1 cells +
+	dup @ u.
      endof

      ['] (") of