cskip
skips leading occurancies in string at addr1/n1 leaving addr2/n2 pointing to the 1st non-c character
Stackeffects
( addr1 n1 c -- addr2 n2 )R( -- )
Definition
: cskip
>r
PFA_CSKIP1:
dup
(?branch) PFA_CSKIP2
over c@ r@ =
(?branch) PFA_CSKIP2
(literal) 1 /string
(branch) PFA_CSKIP1
PFA_CSKIP2:
r> drop
;