Diff for /gforth/extend.fs between versions 1.8 and 1.9

version 1.8, 1995/01/30 18:47:45 version 1.9, 1995/04/20 09:42:50
Line 120  decimal Line 120  decimal
 variable span  variable span
   
 : expect ( c-addr +len -- )  : expect ( c-addr +len -- )
   0 rot over      0 rot over
   BEGIN  key decode >r 2over = r> or  UNTIL      BEGIN ( maxlen span c-addr pos1 )
   2drop nip span ! ;          key decode ( maxlen span c-addr pos2 flag )
           >r 2over = r> or
       UNTIL
       type-rest drop
       2drop nip span ! ;
   

Removed from v.1.8  
changed lines
  Added in v.1.9


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