this now works:
1 : if(a,plus(1,1),evaluate(plus(2,2)))
1=> if(a, plus(1, 1), 4)

2 : if(a,plus(1,1),plus(2,2))
2=> if(a, plus(1, 1), plus(2, 2))
add
1 : set(make,function(n,function(x,evaluate(plus(x,n)))))
1=> function(list(n), function(x, evaluate(plus(x, n))))

2 : make(3)
2=> function(list(x), plus(3, x))