--- gforth/see.fs	1994/02/11 16:30:47	1.1
+++ gforth/see.fs	1995/02/08 13:38:53	1.6
@@ -191,6 +191,16 @@ VARIABLE C-Pass
         Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN
         cell+ ;
 
+: c-flit
+        Display? IF  dup f@ scratch represent 0=
+                     IF    2drop  scratch 3 min 0 .string
+                     ELSE   IF  '- cemit  THEN  1-
+                            scratch over c@ cemit '. cemit 1 /string 0 .string
+                            'E cemit
+                            dup abs 0 <# #S rot sign #> 0 .string bl cemit
+                 THEN THEN
+        float+ ;
+
 : c-s"
         count 2dup + aligned -rot
         Display?
@@ -373,6 +383,7 @@ VARIABLE C-Pass
 
 CREATE C-Table
         ' lit A,         ' c-lit A,
+        ' flit A,        ' c-flit A,
         ' (s") A,        ' c-s" A,
         ' (.") A,        ' c-." A,
         ' "lit A,        ' c-c" A,
@@ -386,7 +397,7 @@ CREATE C-Table
         ' (loop) A,      ' c-loop A,
         ' (+loop) A,     ' c-+loop A,
         ' (next) A,      ' c-next A,
-        ' exit A,        ' c-exit A,
+        ' ;s A,          ' c-exit A,
         ' (;code) A,     ' c-;code A,
         ' (abort") A,    ' c-abort" A,
         ' (compile) A,   ' c-(compile) A,
@@ -427,8 +438,8 @@ CREATE C-Table
         dup cell+ swap @
         dup >r DoTable r> swap IF drop EXIT THEN
         Display?
-        IF look 0= ABORT" SEE: Bua!"
-           cell+ dup count 31 and rot wordinfo .string bl cemit
+        IF look 0= IF  drop dup 1 cells - @ .  \ ABORT" SEE: Bua!"
+           ELSE  dup cell+ count 31 and rot wordinfo .string  THEN  bl cemit
         ELSE drop
         THEN ;
 
@@ -449,23 +460,23 @@ CREATE C-Table
 DEFER dosee
 
 : dopri .name ." is primitive" cr ;
-: dovar .name ." is variable" cr ;
-: docon  dup .name ." is constant, value: "
-         cell+ (name>) >body @ . cr ;
-: doval .name ." is value" cr ;
-: dodef .name ." is defered word, is: "
+: dovar ." Variable " .name cr ;
+: douse ." User " .name cr ;
+: docon  dup cell+ (name>) >body @ . ." Constant " .name cr ;
+: doval  dup cell+ (name>) >body @ . ." Value " .name cr ;
+: dodef ." Defer " dup >r .name cr
          here @ look 0= ABORT" SEE: No valid xt in defered word"
-        .name cr here @ look drop dosee ;
-: dodoe .name ." is created word" cr
-        S" DOES> " Com# .string XPos @ Level !
-        here @ dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN
+	 here @ look drop dosee cr
+        ." ' " .name r> ." IS " .name cr ;
+: dodoe ." Create " dup .name cr
+        S" DOES> " Com# .string XPos @ Level ! name>
+        >does-code dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN
         ScanMode c-pass ! dup makepass
         DisplayMode c-pass ! makepass ;
-: doali .name ." is alias of "
-        here @ .name cr
+: doali here @ .name ." Alias " .name cr
         here @ dosee ;
 : docol S" : " Com# .string
-        cell+ dup count $1F and 2 pick wordinfo .string bl cemit bl cemit
+        dup cell+ count $1F and 2 pick wordinfo .string bl cemit bl cemit
         ( XPos @ ) 2 Level !
         name> >body
         C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN
@@ -481,30 +492,32 @@ create wordtypes
         Doe# ,   ' dodoe A,
         Ali# ,   ' doali A,
         Col# ,   ' docol A,
+	Use# ,   ' douse A,
         0 ,
 
 : (dosee) ( lfa -- )
-        dup cell+ dup c@ 32 and IF over .name ." is an immediate word" cr THEN
+        dup dup cell+ c@ >r
         wordinfo
         wordtypes
         BEGIN dup @ dup
-        WHILE 2 pick = IF cell+ @ nip EXECUTE EXIT THEN
+        WHILE 2 pick = IF cell+ @ nip EXECUTE
+	                  r> dup 32 and IF ."  immediate" THEN
+			         64 and IF ."  restrict" THEN EXIT THEN
               2 cells +
         REPEAT
-        2drop
+        2drop rdrop
         .name ." Don't know how to handle" cr ;
 
 ' (dosee) IS dosee
 
-: see   name find cr 0= IF ." Word unknown" cr drop exit THEN
-        >name c-init
-        dosee ;
-
 : xtc ( xt -- )       \ do see at xt
         Look 0= ABORT" SEE: No valid XT"
         cr c-init
         dosee ;
 
+: see   name sfind 0= IF ." Word unknown" cr exit THEN
+        xtc ;
+
 : lfc   cr c-init cell+ dosee ;
 : nfc   cr c-init dosee ;