[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.70 and 1.71

version 1.70, Tue Feb 12 16:44:58 2008 UTC version 1.71, Wed May 7 20:38:46 2008 UTC
Line 206 
Line 206 
   
 [IFUNDEF] #esc  27 Constant #esc  [THEN]  [IFUNDEF] #esc  27 Constant #esc  [THEN]
   
 : at-deltaxy ( dx dy -- )  base @ >r decimal  : at-deltaxy ( dx dy -- )
       over 0< over 0= and IF  drop abs backspaces  EXIT  THEN
       base @ >r decimal
     ?dup IF      ?dup IF
         #esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit          #esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit
     THEN      THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help