Carp/examples/copying.carp

(use Array)

;;(deftype Mini [m String])

(deftype C [a String
            b (Array Int)
            ;;m Mini
            ])

(use C)

(defn main []
  (let [c1 (C.init @"Hej" [1 2 3])
        c2 (C.copy &c1)
        a1 [(C.copy &c2) (C.copy &c2) (C.copy &c2)]
        a2 (copy &a1)]
    (IO.println "OK.")))

(build)
(run)
(quit)
s/import/use in carp files. 2017-09-06 11:05:19 +03:00			`(use Array)`
Allow arrays as members again. 2017-09-05 12:43:33 +03:00
Can emit score of each binding, will help catch this bug! 2017-09-05 16:38:33 +03:00			`;;(deftype Mini [m String])`

Allow arrays as members again. 2017-09-05 12:43:33 +03:00			`(deftype C [a String`
Can emit score of each binding, will help catch this bug! 2017-09-05 16:38:33 +03:00			`b (Array Int)`
			`;;m Mini`
			`])`
Remove some more code duplication. 2017-09-05 14:49:53 +03:00
s/import/use in carp files. 2017-09-06 11:05:19 +03:00			`(use C)`
Even less duplication. 2017-09-05 15:11:18 +03:00
Remove some more code duplication. 2017-09-05 14:49:53 +03:00			`(defn main []`
Fixed all examples after changing string literals to refs. 2017-09-07 19:55:43 +03:00			`(let [c1 (C.init @"Hej" [1 2 3])`
Even less duplication. 2017-09-05 15:11:18 +03:00			`c2 (C.copy &c1)`
			`a1 [(C.copy &c2) (C.copy &c2) (C.copy &c2)]`
			`a2 (copy &a1)]`
Fixed all examples after changing string literals to refs. 2017-09-07 19:55:43 +03:00			`(IO.println "OK.")))`
A way to run all tests in one go. 2017-09-08 13:24:57 +03:00
			`(build)`
			`(run)`
			`(quit)`