flet.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/flet.bth

blob: b4f955cc26eb0c3ab7d6bad505745f5dea87556f (plain)

(set! f1 (fn (a b c) (say (* a (+ b c)))))
(set! f2 (fn (a) (say (* a a))))
(if true
	(f1 6 2 4)
	(f2 7))
(let (a 100  b 200  c 300)
	(say b))