Diff for /gforth/history.fs between versions 1.5 and 1.6

version 1.5, 1995/04/30 23:18:21 version 1.6, 1995/06/07 10:05:05
Line 7 Line 7
 2Variable end^  2Variable end^
   
 : get-history ( addr len -- wid )  : get-history ( addr len -- wid )
   check-file-prefix drop  \  check-file-prefix drop
   2dup r/w open-file 0<    2dup r/w open-file 0<
   IF  drop r/w create-file throw  ELSE  nip nip  THEN    IF  drop r/w create-file throw  ELSE  nip nip  THEN
   to history    to history
   history file-size throw    history file-size throw
   2dup forward^ 2! 2dup backward^ 2! end^ 2! ;    2dup forward^ 2! 2dup backward^ 2! end^ 2! ;
   
 s" ~/gforth.history" get-history  s" ~/.gforth-history" get-history
   
 : history-cold  Defers 'cold  : history-cold
   s" ~/gforth.history" get-history ;      Defers 'cold
       s" ~/.gforth-history" get-history ;
   
 ' history-cold IS 'cold  ' history-cold IS 'cold
   

Removed from v.1.5  
changed lines
  Added in v.1.6


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