update for new carp

This commit is contained in:
2020-05-05 13:35:29 +02:00
parent 75e98123df
commit a263017504

View File

@@ -1,8 +1,8 @@
(defdynamic *c-counter* 0)
(defndynamic inline-c [s]
(let [f (String.join [(Project.get-config "output-directory")
"carp_inline_c_generated" (str *c-counter*) ".h"])]
(let [f (String.concat [(Project.get-config "output-directory")
"carp_inline_c_generated" (str *c-counter*) ".h"])]
(do
(write-file f s)
(set! *c-counter* (inc *c-counter*))