examples/OCaml-Kaleidoscope/Chapter5/bindings.c


1
2
3
4
5
6
7

#include <stdio.h>

/* putchard - putchar that takes a double and returns 0. */
extern double putchard(double X) {
  putchar((char)X);
  return 0;
}