core: bugfix in String.from-chars; added Char.to-int and Char.from-int

core/Char.carp

@@ -1,2 +1,5 @@
 (defmodule Char
-  (register str (Fn [Char] String)))
+  (register str (Fn [Char] String))
+  (register to-int (Fn [Char] Int))
+  (register from-int (Fn [Int] Char))
+)

core/String.carp

@@ -9,7 +9,7 @@
   (register cstr       (Fn [&String] (Ptr Char)))
   (register str        (Fn [&String] String))
   (register chars      (Fn [&String] (Array Char)))
-  (register from-chars (Fn [(Array Char)] &String))
+  (register from-chars (Fn [(Array Char)] String))
 
   (defn repeat [n inpt]
     (let [str ""]

core/prelude.h

@@ -218,8 +218,8 @@ Array String_chars(string *s) {
 }
 
 string String_from_MINUS_chars(Array a) {
-    string s = malloc(a.len);
-    snprintf(s, a.len, "%s", a.data);
+    string s = malloc(a.len+1);
+    snprintf(s, a.len+1, "%s", a.data);
     return s;
 }
 
@@ -229,6 +229,14 @@ string Char_str(char c) {
     return buffer;
 }
 
+int Char_to_MINUS_int(char c) {
+  return (int)c;
+}
+
+char Char_from_MINUS_int(int i) {
+  return (char)i;
+}
+
 int exmod__bleh(int x) {
     return x * 1000;
 }