alternate-nodes ( s0 s1 s2 s3 -- start end )

Vocabulary

regexp.nfa

Inputs

s0	an object
s1	an object
s2	an object
s3	an object

Outputs

start	an object
end	an object

Definition

IN: regexp.nfa

:: alternate-nodes ( s0 s1 s2 s3 -- start end )
    next-state :> s4 next-state :> s5 s4 s0 epsilon-transition
    s4 s2 epsilon-transition s1 s5 epsilon-transition
    s3 s5 epsilon-transition s4 s5 ;