(}) ( state quot: ( state -- state' ) -- state'' )

Vocabulary

brain-flak.private

Inputs

state	an object
quot	a quotation with stack effect ( state -- state' )

Outputs

state''

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: brain-flak.private

: (}) ( state quot: ( state -- state' ) -- state'' )
    [ dup active>> { [ empty? ] [ last 0 = ] } 1|| ] swap until
    ; inline