[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.59 and 1.60

version 1.59, Sun Mar 18 21:46:17 2007 UTC version 1.60, Sat Mar 31 21:43:18 2007 UTC
Line 244 
Line 244 
 :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )  :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )
     ?dup if      ?dup if
         [ has? header [IF] here image-header 9 cells + ! [THEN] ]          [ has? header [IF] here image-header 9 cells + ! [THEN] ]
         cr .error cr          cr DoError 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] ]
     then ;      then ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help