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/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-27 02:02:13 +03:00
|
|
|
(defstruct Vec2
|
|
|
|
[x :float
|
|
|
|
y :float])
|
2016-02-10 13:50:28 +03:00
|
|
|
|
2016-02-27 02:02:13 +03:00
|
|
|
(def pos (Vec2 3.4 5.5))
|
2016-02-19 13:37:01 +03:00
|
|
|
|
2016-02-27 02:02:13 +03:00
|
|
|
(defstruct Person
|
|
|
|
[name :string
|
|
|
|
age :int])
|
2016-02-26 11:51:44 +03:00
|
|
|
|
2016-02-27 02:58:15 +03:00
|
|
|
(defn me [] (Person "erik" 29))
|
|
|
|
|
|
|
|
;;(bake me)
|
|
|
|
|
|
|
|
(def me-ast (lambda-to-ast (code me)))
|
|
|
|
(def me-deps (find-func-deps me-ast false))
|
|
|
|
(def me-con (gencon me-deps))
|
|
|
|
(def me-typed (infer-types me-deps nil))
|
|
|
|
|
|
|
|
;;(def me-con (gencon me-ast))
|
2016-02-28 13:19:21 +03:00
|
|
|
|