Diff for /gforth/cross.fs between versions 1.4 and 1.5

version 1.4, 1994/05/18 17:29:50 version 1.5, 1994/06/01 10:05:14
Line 23 Line 23
   
 include other.fs       \ ansforth extentions for cross  include other.fs       \ ansforth extentions for cross
   
   : comment? ( c-addr u -- c-addr u )
           2dup s" (" compare 0=
           IF    postpone (
           ELSE  2dup s" \" compare 0= IF postpone \ THEN
           THEN ;
   
 decimal  decimal
   
 \ number?                                               11may93jaw  \ number?                                               11may93jaw
Line 155  endian  0 pad ! -1 pad c! pad @ 0< Line 161  endian  0 pad ! -1 pad c! pad @ 0<
 \ Fixed bug in else part                               11may93jaw  \ Fixed bug in else part                               11may93jaw
   
 [IFDEF] Memory \ Memory is a bigFORTH feature  [IFDEF] Memory \ Memory is a bigFORTH feature
    Memory     also Memory
    : initmem ( var len -- )     : initmem ( var len -- )
      2dup swap handle! >r @ r> erase ;       2dup swap handle! >r @ r> erase ;
    Target     toss
 [ELSE]  [ELSE]
    : initmem ( var len -- )     : initmem ( var len -- )
      tuck allocate abort" CROSS: No memory for target"       tuck allocate abort" CROSS: No memory for target"
Line 263  Variable atonce atonce off Line 269  Variable atonce atonce off
 : gfind   ( string -- ghost true/1 / string false )  : gfind   ( string -- ghost true/1 / string false )
 \ searches for string in word-list ghosts  \ searches for string in word-list ghosts
 \ !! wouldn't it be simpler to just use search-wordlist ? ae  \ !! wouldn't it be simpler to just use search-wordlist ? ae
   >r get-order  0 set-order also ghosts  r> find >r >r    dup count [ ' ghosts >body ] ALiteral search-wordlist
   set-order  r> r@  IF  >body  THEN  r> ;  \ >r get-order  0 set-order also ghosts  r> find >r >r
     >r r@ IF  >body nip  THEN  r> ;
   \ set-order  r> r@  IF  >body  THEN  r> ;
   
 VARIABLE Already  VARIABLE Already
   

Removed from v.1.4  
changed lines
  Added in v.1.5


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