2023-12-01 01:10:16 +00:00
|
|
|
(local fennel (require :fennel))
|
2023-12-05 03:47:59 +00:00
|
|
|
(import-macros {: def : q : ttype : static : printform} :terra)
|
2023-12-03 16:49:11 +00:00
|
|
|
|
2023-12-05 03:47:59 +00:00
|
|
|
(print "define do-thing")
|
|
|
|
|
(fn do-thing [f x]
|
|
|
|
|
(printform
|
|
|
|
|
(q (var z (+ x 1))
|
|
|
|
|
(f z)
|
|
|
|
|
($)))
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(print "define thing-doer")
|
|
|
|
|
(local thing-doer (def [x int] (return)))
|
|
|
|
|
; (print thing-doer)
|
|
|
|
|
; (printform
|
|
|
|
|
(def []
|
|
|
|
|
(var z 10)
|
|
|
|
|
,(do-thing thing-doer `z))
|
|
|
|
|
; )
|
|
|
|
|
nil
|
