()) ( 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 kernel sequences ;

IN: brain-flak.private

: ()) ( state quot: ( state -- state' ) -- state'' )
    nested-call dup [ total>> ] [ active>> ] bi push swap glue ;
    inline