preserve ( quot var -- )

Vocabulary

backtrack.private

Inputs

quot	an object
var	an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: backtrack.private

: preserve ( quot var -- ) [ get [ call ] dip ] keep set ;
    inline