--- gforth/see.fs	2003/01/01 17:28:29	1.46
+++ gforth/see.fs	2003/01/26 20:56:37	1.49
@@ -275,21 +275,25 @@ VARIABLE C-Pass
 : back? ( addr target -- addr flag )
     over u< ;
 
-: .word ( addr xt -- addr )
-    look 0= IF
-	drop dup 1 cells - @ dup body> look
-	IF
-	    nip dup ." <" name>string rot wordinfo .string ." >"
-	ELSE
-	    drop ." <" 0 .r ." >"
-	THEN
-    ELSE
-	dup cell+ @ immediate-mask and
-	IF
-	    bl cemit  ." POSTPONE "
-	THEN
-	dup name>string rot wordinfo .string
-    THEN ;
+: .word ( addr x -- addr )
+    \ print x as a word if possible
+    dup look 0= IF
+	drop dup threaded>name dup 0= if
+	    2drop dup 1 cells - @ dup body> look
+	    IF
+		nip dup ." <" name>string rot wordinfo .string ." > "
+	    ELSE
+		drop ." <" 0 .r ." > "
+	    THEN
+	    EXIT
+	then
+    THEN
+    nip dup cell+ @ immediate-mask and
+    IF
+	bl cemit  ." POSTPONE "
+    THEN
+    dup name>string rot wordinfo .string
+    ;
 
 : c-call ( addr1 -- addr2 )
     Display? IF
@@ -327,8 +331,9 @@ VARIABLE C-Pass
     cell+ ;
 
 : .name-without ( addr -- addr )
-\ prints a name without a() e.g. a(+LOOP) or (s")
-    dup 1 cells - @ look IF
+    \ !! the stack effect cannot be correct
+    \ prints a name without a() e.g. a(+LOOP) or (s")
+    dup 1 cells - @ threaded>name dup IF
 	name>string over c@ 'a = IF
 	    1 /string
 	THEN
@@ -354,8 +359,9 @@ VARIABLE C-Pass
     \ if f is false, addr2=addr1
     \ recognizes the following patterns:
     \ c":     ahead X: len string then lit X
-    \ s\":    ahead X: string then lit X lit len
-    \ .\":    ahead X: string then lit X lit len type
+    \ flit:   ahead X: float      then lit X f@
+    \ s\":    ahead X: string     then lit X lit len
+    \ .\":    ahead X: string     then lit X lit len type
     \ !! not recognized anywhere:
     \ abort": if ahead X: len string then lit X c(abort") then
     dup @ back? if false exit endif
@@ -363,8 +369,8 @@ VARIABLE C-Pass
     r@ @ decompile-prim ['] lit xt>threaded <> if rdrop false exit endif
     r@ cell+ @ over cell+ <> if rdrop false exit endif
     \ we have at least C"
-    r@ 2 cells + @ decompile-prim ['] lit xt>threaded = if
-	r@ 3 cells + @ over cell+ + aligned r@ = if
+    r@ 2 cells + @ decompile-prim dup ['] lit xt>threaded = if
+	drop r@ 3 cells + @ over cell+ + aligned r@ = if
 	    \ we have at least s"
 	    r@ 4 cells + @ decompile-prim ['] lit-perform xt>threaded =
 	    r@ 5 cells + @ ['] type >body = and if
@@ -381,6 +387,12 @@ VARIABLE C-Pass
 	    nip cells r> + true exit
 	endif
     endif
+    ['] f@ xt>threaded = if
+	display? if
+	    r@ cell+ @ f@ 10 8 16 f>str-rdp 0 .string bl cemit
+	endif
+	drop r> 3 cells + true exit
+    endif
     \ !! check if count matches space?
     display? if
 	s\" c\" " 0 .string r@ cell+ @ count 0 .string '" cemit bl cemit