Diff for /gforth/kernel/vars.fs between versions 1.50 and 1.51

version 1.50, 2011/12/31 15:29:26 version 1.51, 2012/03/15 13:37:25
Line 55  has? file [IF] Line 55  has? file [IF]
   
 20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )  20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   
 has? EC 0= [IF]  
 create holdbuf word-pno-size chars allot  
 holdbuf word-pno-size chars + aconstant holdbuf-end  
 avariable holdptr holdbuf-end holdptr a!  
 avariable holdend holdbuf-end holdend a!  
 [THEN]  
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
 $400 Value def#tib  $400 Value def#tib
Line 122  AUser errorhandler Line 115  AUser errorhandler
   
 AUser "error            0 "error !  AUser "error            0 "error !
   
   has? EC 0= [IF]
       auser holdbufptr
       here word-pno-size chars allot dup holdbufptr !
       word-pno-size chars +
       : holdbuf ( -- addr ) holdbufptr @ ;
       : holdbuf-end   holdbuf word-pno-size chars + ;
       auser holdptr dup holdptr a!
       auser holdend     holdend a!
   [THEN]
   
 has? new-input [IF]  has? new-input [IF]
     User current-input      User current-input
 [ELSE]  [ELSE]

Removed from v.1.50  
changed lines
  Added in v.1.51


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