Carp/out/project.carp

(reset! echo-signature-after-bake true)
(reset! log-unloading-of-dylibs true)

(when (not carp-dev)
  (do
    ;;(load-lisp (str carp-dir "lisp/glfw_test.carp"))
    (load-lisp (str carp-dir "lisp/examples.carp"))
    nil
    ))

(defn generic-call-2 [x]
  (+ (id 10) (id x)))

(defn generic-call-2b [x]
  (+ (id 10) (id x)))

(defn test-generic-call-2 []
  (do (bake generic-call-2)
      (assert-eq (signature generic-call-2) (list :fn '(:int) :int))))

;;(test-generic-call-2)


;; (defstruct Vec2
;;   [x :float
;;    y :float])

;; (def pos (Vec2 3.4 5.5))

;; (defstruct Person
;;   [name :string
;;    age :int])

;; (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))

;; (bake me)

;; (defn peeps []
;;   [(me) (Person "Klabbe" 53)])

;; ;;(bake peeps)

;; ;; (println (str (map #name (peeps))))
;; ;; (println (str (map #age (peeps))))