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

blob: 7c04cf35ca873a7a3d27b44ec0d85724449fe8ca (plain)

(do
	(set f1 (fn (x) (+ x 10)))
	(set f2 (fn (x) (* x 10)))
	(set g (fn (f x) (puts (f x)) (puts (f x))))
	(g f1 26)
	(g f2 6)
	nil)