Diff for /gforth/history.fs between versions 1.46 and 1.47

version 1.46, 2006/02/19 17:27:12 version 1.47, 2006/02/19 22:15:05
Line 72  s" os-class" environment? [IF] s" unix" Line 72  s" os-class" environment? [IF] s" unix"
 defer back-restore ( u -- )  defer back-restore ( u -- )
 ' backspaces is back-restore  ' backspaces is back-restore
   
   [IFDEF] x-width
 : clear-line ( max span addr pos1 -- max addr )  : clear-line ( max span addr pos1 -- max addr )
   back-restore over over swap x-width spaces swap back-restore ;    back-restore over over swap x-width spaces swap back-restore ;
   [ELSE]
   : clear-line ( max span addr pos1 -- max addr )
     back-restore over spaces swap back-restore ;
   [THEN]
 \ : clear-tib ( max span addr pos -- max 0 addr 0 false )  \ : clear-tib ( max span addr pos -- max 0 addr 0 false )
 \   clear-line 0 tuck dup ;  \   clear-line 0 tuck dup ;
   

Removed from v.1.46  
changed lines
  Added in v.1.47


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