Fix

diff --git a/intrin.c b/intrin.c
index cf4398e82d2aabee1050c9c897dee90c25b5dd96..a6d35209e00ca128a07ec69da28825d54255112b 100644 (file)
--- a/intrin.c
+++ b/intrin.c
@@ -85,7 +85,7 @@ static ast_expression *intrin_isfinite(intrin_t *intrin) {
      */
     ast_value    *value     = NULL;
     ast_value    *x         = ast_value_new(intrin_ctx(intrin), "x", TYPE_FLOAT);
-    ast_function *func      = intrin_value(intrin, &value, NULL, TYPE_FLOAT);
+    ast_function *func      = intrin_value(intrin, &value, "isfinite", TYPE_FLOAT);
     ast_call     *callisnan = ast_call_new(intrin_ctx(intrin), intrin_func_self(intrin, "isnan", "isfinite"));
     ast_call     *callisinf = ast_call_new(intrin_ctx(intrin), intrin_func_self(intrin, "isinf", "isfinite"));
     ast_block    *block     = ast_block_new(intrin_ctx(intrin));