(>) ( state quot: ( state -- state' ) -- state'' )


Vocabulary
brain-flak.private

Inputs
statean object
quota quotation with stack effect ( state -- state' )


Outputs
state''an object


Definition
USING: accessors kernel ;

IN: brain-flak.private

: (>) ( state quot: ( state -- state' ) -- state'' )
nested-call swap >>total ; inline