Diff for /gforth/history.fs between versions 1.78 and 1.79

version 1.78, 2012/04/06 16:50:03 version 1.79, 2012/08/15 00:48:12
Line 207  require utf-8.fs Line 207  require utf-8.fs
   
 [IFUNDEF] #esc  27 Constant #esc  [THEN]  [IFUNDEF] #esc  27 Constant #esc  [THEN]
   
 : at-deltaxy ( dx dy -- )  Defer at-deltaxy
   : vt100-at-deltaxy ( dx dy -- )
     over 0< over 0= and IF  drop abs backspaces  EXIT  THEN      over 0< over 0= and IF  drop abs backspaces  EXIT  THEN
     base @ >r decimal      base @ >r decimal
     ?dup IF      ?dup IF
Line 216  require utf-8.fs Line 217  require utf-8.fs
     ?dup IF      ?dup IF
         #esc emit '[ emit  dup abs 0 .r 0< IF  'D  ELSE  'C  THEN  emit          #esc emit '[ emit  dup abs 0 .r 0< IF  'D  ELSE  'C  THEN  emit
     THEN  r> base ! ;      THEN  r> base ! ;
   ' vt100-at-deltaxy IS at-deltaxy
   
 \ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;  \ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
 \ : at-xy? ( -- x y )  \ : at-xy? ( -- x y )

Removed from v.1.78  
changed lines
  Added in v.1.79


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>