X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;ds=sidebyside;f=stdlib.c;fp=stdlib.c;h=9749ee3fc0a35c34089da089ed3682b165f9ec8a;hb=58bc647a182a51f277577aa7c46381a2138a2e06;hp=0000000000000000000000000000000000000000;hpb=705b0b8458673edb7273e6e19914390a55e51d23;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;
+}