Diff for /gforth/kernel/basics.fs between versions 1.30 and 1.31

version 1.30, 2001/09/04 08:15:47 version 1.31, 2001/09/12 14:44:24
Line 67  unlock ram-dictionary borders nip lock Line 67  unlock ram-dictionary borders nip lock
 AConstant dictionary-end  AConstant dictionary-end
 [ELSE]  [ELSE]
 : dictionary-end ( -- addr )  : dictionary-end ( -- addr )
     forthstart [ 3 cells ] Aliteral @ + ;      forthstart [ 3 cells image-header + ] Aliteral @ + ;
 [THEN]  [THEN]
   
 : usable-dictionary-end ( -- addr )  : usable-dictionary-end ( -- addr )
Line 221  defer throw ( y1 .. ym nerror -- y1 .. y Line 221  defer throw ( y1 .. ym nerror -- y1 .. y
   
 :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )  :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )
     ?dup if      ?dup if
         [ has? ec 0= [IF] here forthstart 9 cells + ! [THEN] ]          [ has? ec 0= [IF] here image-header 9 cells + ! [THEN] ]
         cr .error cr          cr .error cr
         [ has? file [IF] ] script? IF  1 (bye)  ELSE  quit  THEN          [ has? file [IF] ] script? IF  1 (bye)  ELSE  quit  THEN
         [ [ELSE] ] quit [ [THEN] ]          [ [ELSE] ] quit [ [THEN] ]

Removed from v.1.30  
changed lines
  Added in v.1.31


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