[OpenBIOS] r619 - trunk/openbios-devel/forth/debugging

[svn at openbios.org]

Author: stepan
Date: 2009-11-20 16:58:55 +0100 (Fri, 20 Nov 2009)
New Revision: 619

Modified:
   trunk/openbios-devel/forth/debugging/see.fs
Log:
actually print value of a (lit)


Modified: trunk/openbios-devel/forth/debugging/see.fs
===================================================================
--- trunk/openbios-devel/forth/debugging/see.fs	2009-11-20 15:42:28 UTC (rev 618)
+++ trunk/openbios-devel/forth/debugging/see.fs	2009-11-20 15:58:55 UTC (rev 619)
@@ -71,8 +71,9 @@
       endof
 
       ['] (lit) of
-        ." (lit)" 
+        ." ( lit ) h# " 
 	drop 1 cells +
+	dup @ u.
       endof
 
       ['] (") of