From 71098dd01be6ed93c77e2e44dbbc62d46233e9f5 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Tue, 13 Aug 2019 18:28:19 +0300
Subject: [PATCH] Fix some "long double" nonsense

Apparently in addition to "float", "double" and "long double" there
are now standard types in <math.h> called "float_t" and "double_t".
Those types don't need to be equivalent to "float" and "double". Gah!
---
 c/equalhash.c | 1 +
 c/flisp.h     | 4 ++--
 c/flmain.c    | 1 +
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/c/equalhash.c b/c/equalhash.c
index 2bfe3b0..b94d60f 100644
--- a/c/equalhash.c
+++ b/c/equalhash.c
@@ -1,5 +1,6 @@
 #include <assert.h>
 #include <limits.h>
+#include <math.h>
 #include <setjmp.h>
 #include <stdarg.h>
 #include <stdint.h>
diff --git a/c/flisp.h b/c/flisp.h
index cb01ef8..ec539ff 100644
--- a/c/flisp.h
+++ b/c/flisp.h
@@ -353,8 +353,8 @@ struct fltype *get_array_type(value_t eltype);
 struct fltype *define_opaque_type(value_t sym, size_t sz,
                                   struct cvtable *vtab, cvinitfunc_t init);
 
-value_t mk_double(double n);
-value_t mk_float(float n);
+value_t mk_double(double_t n);
+value_t mk_float(float_t n);
 value_t mk_uint32(uint32_t n);
 value_t mk_uint64(uint64_t n);
 value_t mk_wchar(int32_t n);
diff --git a/c/flmain.c b/c/flmain.c
index d8c6344..81af8ba 100644
--- a/c/flmain.c
+++ b/c/flmain.c
@@ -1,4 +1,5 @@
 #include <assert.h>
+#include <math.h>
 #include <setjmp.h>
 #include <stdarg.h>
 #include <stdint.h>