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

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;
+}