carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 20:49:05 +03:00
Code Issues Projects Releases Wiki Activity

more work

Browse Source
This commit is contained in:
Erik Svedäng 2016-04-26 11:38:38 +02:00
parent 07fcc11d8a
commit 4632c589b6
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/project.carp
View File

@ -6,7 +6,7 @@
(defn f []
(defn fsdfdsf []
(str* "hej" "san" "svej" "san" "!"))

16
lisp/generics.carp
View File

@ -342,14 +342,16 @@
x (error (str "Can't build generic primop for '" x "'"))))
(defn instantiate-str-for-string [c-func-name]
(let [proto (str "API string " c-func-name "(string s)")
c (str proto "{ return strdup(s); }\n")]
{:proto proto
:c c
:deps ()}))
(defn instantiate-prn-for-string [c-func-name]
;; (defn instantiate-str-for-string [c-func-name]
;; (let [proto (str "API string " c-func-name "(string s)")
;; c (str proto "{ return strdup(s); }\n")]
;; {:proto proto
;; :c c
;; :deps ()}))
(defn instantiate-str-for-string [c-func-name]
(let [proto (str "API string " c-func-name "(string s)")
c (str proto " {\n"
;;" printf(\"calling str on string '%s'\\n\", s);\n"