2016-01-25 18:55:56 +03:00
|
|
|
(reset! echo-signature-after-bake true)
|
|
|
|
|
|
|
|
(when (not carp-dev)
|
2016-01-29 19:40:46 +03:00
|
|
|
(do
|
|
|
|
;;(load-lisp (str carp-dir "lisp/string_array.carp"))
|
|
|
|
;;(load-lisp (str carp-dir "lisp/glfw_test.carp"))
|
2016-02-11 12:56:26 +03:00
|
|
|
(load-lisp (str carp-dir "lisp/examples.carp"))
|
2016-01-29 19:40:46 +03:00
|
|
|
nil
|
|
|
|
))
|
2016-01-22 17:25:37 +03:00
|
|
|
|
2016-02-10 14:00:01 +03:00
|
|
|
(def x '(1 2 3))
|
2016-02-10 13:50:28 +03:00
|
|
|
|
2016-02-19 13:37:01 +03:00
|
|
|
(defn id [x] x)
|
|
|
|
|
2016-02-19 18:35:44 +03:00
|
|
|
(defn id-test []
|
|
|
|
(id 123))
|
|
|
|
|
2016-02-23 23:19:25 +03:00
|
|
|
(def iast (lambda-to-ast (code id-test)))
|
|
|
|
|
|
|
|
;; (def icon (gencon iast)) <-- KRASCH!
|
|
|
|
;; (def iasta (annotate-ast iast))
|
|
|
|
|
2016-02-10 13:50:28 +03:00
|
|
|
;;(meta-set! x :dangerous 10)
|
|
|
|
|
2016-02-23 23:24:00 +03:00
|
|
|
(defn whatever [a b]
|
|
|
|
100)
|
|
|
|
|