12 lines
221 B
Plaintext
12 lines
221 B
Plaintext
|
;; 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)))))
|