1 2 3 4 5 6 7 8 9 10 11 12 13 14
expr F = x; attrib $a = nonlocal; apply { $a = 2; id x = y + x; if match(x) { $a = 5; } Multiply f($a); // this will produce f(5)*x + (5)*y }