func3.bth « tests - badthing - the best scheme that i have, and that's bad enough for me

summary refs log tree commit diff

path: root/tests/func3.bth

blob: 9c0ceebbecb7119bb25b6b093a21e2a6e93508a3 (plain)

(set f1 (fn (a b) (* a b)))
(set f2 (fn (x)
		 (let (a 3
			   g (fn (y) (+ y 7)))
			   (* (g a) (g x)))))
(say (f1 6 6))
(say (f2 7))