Diff for /gforth/cross.fs between versions 1.11 and 1.12

version 1.11, 1994/09/02 15:23:33 version 1.12, 1994/09/09 16:27:17
Line 110  include-file Line 110  include-file
   
 >CROSS  >CROSS
   
 endian  0 pad ! -1 pad c! pad @ 0<  bigendian  0 pad ! -1 pad c! pad @ 0<
 = [IF]   : bswap ; immediate   = [IF]   : bswap ; immediate 
 [ELSE]   : bswap ( big / little -- little / big )  0  [ELSE]   : bswap ( big / little -- little / big )  0
            cell 1- FOR  bits/byte lshift over             cell 1- FOR  bits/byte lshift over
Line 733  Cond: [ELSE]    [ELSE] ;Cond Line 733  Cond: [ELSE]    [ELSE] ;Cond
 \ [THEN]  \ [THEN]
 \ included throw after create-file                     11may93jaw  \ included throw after create-file                     11may93jaw
   
 endian Constant endian  bigendian Constant bigendian
   
 : save-cross ( "name" -- )  : save-cross ( "name" -- )
   bl parse ." Saving to " 2dup type    bl parse ." Saving to " 2dup type

Removed from v.1.11  
changed lines
  Added in v.1.12


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