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: 68d5b20c7e7997f36236750ad85249ac6d053ef6 (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))