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: 050a9bc52f713764914e3f9340198b00e02b62aa (plain)

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