carpentry/inline-c
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update for new carp

Browse Source
This commit is contained in:
Veit Heller
2020-05-05 13:35:29 +02:00
parent 75e98123df
commit a263017504
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
main.carp
View File

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