Diff for /gforth/kernel/basics.fs between versions 1.42 and 1.43

version 1.42, 2004/05/08 17:14:30 version 1.43, 2004/05/16 21:16:36
Line 133  has? ec [IF] Line 133  has? ec [IF]
 \ (word)                                               22feb93py  \ (word)                                               22feb93py
   
 : scan   ( addr1 n1 char -- addr2 n2 ) \ gforth  : scan   ( addr1 n1 char -- addr2 n2 ) \ gforth
     \ skip all characters not equal to char      \G skip all characters not equal to char
     >r      >r
     BEGIN      BEGIN
         dup          dup
Line 144  has? ec [IF] Line 144  has? ec [IF]
     REPEAT  THEN      REPEAT  THEN
     rdrop ;      rdrop ;
 : skip   ( addr1 n1 char -- addr2 n2 ) \ gforth  : skip   ( addr1 n1 char -- addr2 n2 ) \ gforth
     \ skip all characters equal to char      \G skip all characters equal to char
     >r      >r
     BEGIN      BEGIN
         dup          dup

Removed from v.1.42  
changed lines
  Added in v.1.43


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