--- gforth/see.fs	2003/01/06 11:18:59	1.48
+++ gforth/see.fs	2003/03/08 13:29:55	1.50
@@ -28,19 +28,6 @@
 require look.fs
 require termsize.fs
 require wordinfo.fs
-[IFUNDEF] .name
-: id. ( nt -- ) \ gforth
-    \G Print the name of the word represented by @var{nt}.
-    \ this name comes from fig-Forth
-    name>string type space ;
-
-' id. alias .id ( nt -- )
-\G F83 name for @code{id.}.
-
-' id. alias .name ( nt -- )
-\G Gforth <=0.5.0 name for @code{id.}.
-
-[THEN]
 
 decimal
 
@@ -359,8 +346,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
@@ -368,8 +356,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
@@ -386,6 +374,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