From 1ac5ad89c234e4ce18c7b2348c35354c2f6e8f9a Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 11 Jan 2026 15:41:24 -0500 Subject: Fix for optional check --- src/compile/optionals.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compile/optionals.c b/src/compile/optionals.c index bf8bf4aa..00af0856 100644 --- a/src/compile/optionals.c +++ b/src/compile/optionals.c @@ -92,7 +92,7 @@ Text_t check_none(type_t *t, Text_t value) { else if (t->tag == ClosureType) return Texts("((", value, ").fn == NULL)"); else if (t->tag == FloatType) return Texts(Match(t, FloatType)->bits == TYPE_NBITS64 ? "Float64$isnan(" : "Float32$isnan(", value, ")"); - else if (t->tag == RealType) return Texts("Real$is_none(", value, ")"); + else if (t->tag == RealType) return Texts("Real$is_none(stack(", value, "), &Real$info)"); else if (t->tag == ListType) return Texts("((", value, ").data == NULL)"); else if (t->tag == TableType) return Texts("((", value, ").entries.data == NULL)"); else if (t->tag == BoolType) return Texts("((", value, ") == NONE_BOOL)"); -- cgit v1.2.3