mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
29 lines
544 B
Plaintext
29 lines
544 B
Plaintext
(Project.config "print-ast" true)
|
|
(Debug.sanitize-addresses)
|
|
|
|
(def s "I'm a global string...")
|
|
|
|
(deftype A [x Int])
|
|
(def a (A.init 666))
|
|
|
|
;;(Debug.log-memory-balance! true)
|
|
|
|
(def q [1 2 3 4 5])
|
|
(def stuff [(A.init 10) (A.init 20) (A.init 30)])
|
|
|
|
(defn main []
|
|
(Debug.assert-balanced
|
|
(do
|
|
;;(IO.println s)
|
|
(IO.println &(A.str &a))
|
|
;;(set! a (A.init 123))
|
|
;;(IO.println &(A.str &a))
|
|
(IO.println &(str &q))
|
|
(IO.println &(str &stuff))
|
|
)))
|
|
|
|
;; (defn f [x]
|
|
;; (do
|
|
;; (IO.println &(Int.str x))
|
|
;; @gs))
|