Diff for /gforth/cross.fs between versions 1.15 and 1.16

version 1.15, 1994/11/15 15:55:34 version 1.16, 1994/11/17 15:53:07
Line 738  bigendian Constant bigendian Line 738  bigendian Constant bigendian
 : save-cross ( "name" -- )  : save-cross ( "name" -- )
   bl parse ." Saving to " 2dup type    bl parse ." Saving to " 2dup type
   w/o bin create-file throw >r    w/o bin create-file throw >r
   image @ there r@ write-file throw    s" gforth00"  r@ write-file throw \ write magic
   bit$  @ there 1- cell>bit rshift 1+ r@ write-file throw    image @ there r@ write-file throw \ write image
     bit$  @ there 1- cell>bit rshift 1+
                   r@ write-file throw \ write tags
   r> close-file throw ;    r> close-file throw ;
   
 \ words that should be in minimal  \ words that should be in minimal

Removed from v.1.15  
changed lines
  Added in v.1.16


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