ref: 14c196a5da48284123d615418c80b6fbc87d7f46
dir: /main_posix.c/
#include "flisp.h" #include "ieee754.h" static const uint8_t boot[] = #include "flisp.boot.h" ; int main(int argc, char **argv) { union ieee754_float *f; F_PNAN = F_NNAN = strtof("+NaN", nil); F_PINF = F_NINF = strtof("+Inf", nil); f = (union ieee754_float *)&F_NNAN; f->ieee.negative = 1; f = (union ieee754_float *)&F_NINF; f->ieee.negative = 1; setlocale(LC_NUMERIC, "C"); flmain(boot, sizeof(boot), argc, argv); }