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

(set! f1 (fn (x) (+ x 10)))
(set! f2 (fn (x) (* x 10)))
(set! g (fn (f x) (say (f x)) (say (f x))))
(g f1 26)
(g f2 6)