RosettaCodeData/Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-5.factor

SYMBOL: x
: eval-with-x ( a b program -- n )
    tuck
    [ [ x ] dip [ ( -- y ) eval ] curry with-variable ] 2bi@ - ;