12 lines
221 B
Scheme
12 lines
221 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode.
|
|
|
|
;; Functions
|
|
|
|
(def function?
|
|
(fun (o)
|
|
(and (@block? o) (@= 202 (@block-tag o)))))
|
|
|
|
(def function-compose
|
|
(fun (f g)
|
|
(fun (x) (f (g x)))))
|