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 |