- BRANCH 0,p_evaluate_stream_END
- dq p_2dup ; ( -- chars* n chars* n )
- dq p_this_word ; ( -- chars* n chars* n p )
- dq p_2put ; ( -- chars* n )
- dq p_find ; ( -- [ chars* n 0 ]/[ tfa ] )
- dq p_dup ; ( -- [ chars* n 0 0 ]/[ tfa tfa ] )
- BRANCH 0,p_evaluate_stream_NOTWORD ; ( -- chars* n tfa/0 )
- dq p_execute ; ( -- chars* n tfa/0 )
- BRANCH ,p_evaluate_stream_LOOP
-p_evaluate_stream_NOTWORD:
- dq p_drop ; ( -- chars* n )
- dq p_number ; ( -- [ 0 ]/[ v 1 ] )
+ BRANCH 0,p_evaluate_stream_END ; branch if 0 on TOP
+ dq p_2dup
+ dq p_this_word
+ dq p_2put
+ dq p_find
+ dq p_dup
+ BRANCH 0,p_evaluate_stream_NOTWORD ; branch if 0 on TOP
+ dq p_state
+ dq p_get
+ BRANCH 0,p_evaluate_stream_INTERPRET