24 lines
457 B
Fennel
24 lines
457 B
Fennel
(local fennel (require :fennel))
|
|
(import-macros {: def : q : ttype : static : unterra : untype} :terra)
|
|
|
|
(local N (static int 5))
|
|
(print N)
|
|
(fn inc [x]
|
|
(print "calling inc" x)
|
|
(q (+ ,x 1)))
|
|
|
|
(print (unterra
|
|
(def [x int]
|
|
(set N (+ N x))
|
|
(return N))))
|
|
|
|
(local addN (def [x int]
|
|
(set N (+ N x))
|
|
(return N)))
|
|
|
|
(print addN)
|
|
(print (N:get) (addN 3) (N:get))
|
|
|
|
; (local inc (def [x [int]] (return [x N])))
|
|
; (print (inc 5))
|