evaluate
EVALUATE input word by word. may throw exceptions
Stackeffects
( c-addr len -- )R( i*x - j*x )
Definition
: evaluate
PFA_EVALUATE1:
bl parse dup c@ 0>
(?branch) PFA_EVALUATE4
find ?dup 0=
(?branch) PFA_EVALUATE2
>number state @
(?branch) PFA_EVALUATE9
compile
compile
(unnamed)
PFA_EVALUATE9:
(branch) PFA_EVALUATE3
PFA_EVALUATE2:
0>
(?branch) PFA_EVALUATE5
execute
(branch) PFA_EVALUATE6
PFA_EVALUATE5:
state @ 0=
(?branch) PFA_EVALUATE7
execute
(branch) PFA_EVALUATE8
PFA_EVALUATE7:
(unnamed)
PFA_EVALUATE8:
PFA_EVALUATE6:
PFA_EVALUATE3:
(branch) PFA_EVALUATE1
PFA_EVALUATE4:
drop
;