From 10d05ab14042636f4c5dcd1ad011a00052888276 Mon Sep 17 00:00:00 2001 From: Felix Perktold Date: Mon, 19 Jan 2026 16:18:02 +0100 Subject: add error type --- modules/std_lib.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'modules/std_lib.c') diff --git a/modules/std_lib.c b/modules/std_lib.c index 7964422..182aac0 100644 --- a/modules/std_lib.c +++ b/modules/std_lib.c @@ -78,7 +78,7 @@ value *apply_to_nums(env *e, value *args, double (*fn)(double, double)) { } else { printf("not a number: "); println_value(v); - return make_nil(); + return make_error("not a number: "); } args = cdr(args); @@ -91,7 +91,7 @@ value *apply_to_nums(env *e, value *args, double (*fn)(double, double)) { } else { printf("not a number: "); println_value(v); - return make_nil(); + return make_error("not a number: "); } args = cdr(args); } @@ -133,7 +133,7 @@ value *procedure_lt(env *e, value *args) { } else { printf("not a number: "); println_value(v); - return make_nil(); + return make_error("not a number: "); } args = cdr(args); @@ -147,7 +147,7 @@ value *procedure_lt(env *e, value *args) { } else { printf("not a number: "); println_value(v); - return make_nil(); + return make_error("not a number: "); } if(prev_num >= cur_num) { return make_nil(); -- cgit v1.2.3