X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=stdlib.c;fp=stdlib.c;h=9749ee3fc0a35c34089da089ed3682b165f9ec8a;hb=3310c7d85bc988cacf97bc5784b470c78d8d13a2;hp=0000000000000000000000000000000000000000;hpb=f7ddcab1610d50be8e9e286554cd5a8e40f54afa;p=kaleidoscope-hs.git

diff --git a/stdlib.c b/stdlib.c
new file mode 100644
index 0000000..9749ee3
--- /dev/null
+++ b/stdlib.c
@@ -0,0 +1,7 @@
+#include <stdio.h>
+// Takes a double and writes it to stdout
+double putchard(double x) {
+	int res = putchar((int)x);
+	fflush(stdout);
+	return (double)res;
+}