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: 59392e18e1d0caf81a89b14989f4f926df68a8fc (plain)

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