(]) ( 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 math ;

IN: brain-flak.private

: (]) ( state quot: ( state -- state' ) -- state'' )
nested-call [ neg ] change-total swap glue ; inline