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: 102fc349fd75351418c92dbc0711f4352db795cc (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))