[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.5 and 1.6

version 1.5, Tue Nov 29 16:22:47 1994 UTC version 1.6, Wed Feb 8 13:38:53 1995 UTC
Line 191 
Line 191 
         Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN          Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN
         cell+ ;          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"  : c-s"
         count 2dup + aligned -rot          count 2dup + aligned -rot
         Display?          Display?
Line 373 
Line 383 
   
 CREATE C-Table  CREATE C-Table
         ' lit A,         ' c-lit A,          ' lit A,         ' c-lit A,
           ' flit A,        ' c-flit A,
         ' (s") A,        ' c-s" A,          ' (s") A,        ' c-s" A,
         ' (.") A,        ' c-." A,          ' (.") A,        ' c-." A,
         ' "lit A,        ' c-c" A,          ' "lit A,        ' c-c" A,

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help