--- gforth/see.fs	2000/09/23 15:46:59	1.31
+++ gforth/see.fs	2001/01/28 17:39:33	1.34
@@ -28,7 +28,19 @@
 require look.fs
 require termsize.fs
 require wordinfo.fs
-[IFUNDEF] .name : .name name>string type space ; [THEN]
+[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
 
@@ -87,7 +99,7 @@ DEFER nlcount ' noop IS nlcount
                 IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN
                 THEN ;
 
-DEFER .string
+DEFER .string ( c-addr u n -- )
 
 [IFDEF] Green
 VARIABLE Colors Colors on
@@ -476,17 +488,24 @@ c-extender !
                   THEN ;
 
 : analyse ( a-addr1 -- a-addr2 )
-        Branches @ IF BranchTo? THEN
-        dup cell+ swap @
-        dup >r DoTable r> swap IF drop EXIT THEN
-        Display?
-        IF look 0= IF  drop dup 1 cells - @ .  \ ABORT" SEE: Bua!"
+    Branches @ IF BranchTo? THEN
+    dup cell+ swap @
+    dup >r DoTable r> swap IF drop EXIT THEN
+    Display?
+    IF
+	look 0= IF
+	    drop dup 1 cells - @ ." <" 0 .r ." >"
 	ELSE
-	    dup cell+ count dup immediate-mask and
-	    IF  bl cemit  ." POSTPONE " THEN
-	    31 and rot wordinfo .string  THEN  bl cemit
-        ELSE drop
-        THEN ;
+	    dup cell+ @ immediate-mask and
+	    IF
+		bl cemit  ." POSTPONE "
+	    THEN
+	    dup name>string rot wordinfo .string
+	THEN
+	bl cemit
+    ELSE
+	drop
+    THEN ;
 
 : c-init
         0 YPos ! 0 XPos !