From 4632c589b67b76ea331122abae5e6ab7f9b0a6d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Erik=20Sved=C3=A4ng?= <erik.svedang@gmail.com>
Date: Tue, 26 Apr 2016 11:38:38 +0200
Subject: [PATCH] more work

---
 examples/project.carp |  2 +-
 lisp/generics.carp    | 16 +++++++++-------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/examples/project.carp b/examples/project.carp
index 006c576e..ffcbf3c6 100644
--- a/examples/project.carp
+++ b/examples/project.carp
@@ -6,7 +6,7 @@
 
 
 
-(defn f []
+(defn fsdfdsf []
   (str* "hej" "san" "svej" "san" "!"))
 
 
diff --git a/lisp/generics.carp b/lisp/generics.carp
index a1d82caf..d6877b04 100644
--- a/lisp/generics.carp
+++ b/lisp/generics.carp
@@ -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"