From f8253f716b0f2e5726b4b2d98318e9ea61b70736 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 31 Mar 2016 23:32:44 -0400 Subject: [PATCH] Use new numeric comparison ops --- runtime.c | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/runtime.c b/runtime.c index 3eb67281..e27c16ec 100644 --- a/runtime.c +++ b/runtime.c @@ -2259,20 +2259,20 @@ void _cell(void *data, object cont, object args) { printf("not implemented\n"); exit(1); } void __123(void *data, object cont, object args) { - Cyc_check_num_args(data, "=", 2, args); - return_closcall1(data, cont, __num_eq(data, car(args), cadr(args)));} + integer_type argc = Cyc_length_as_object(data, args); + dispatch(data, argc.value, (function_type)dispatch_num_eq, cont, cont, args); } void __125(void *data, object cont, object args) { - Cyc_check_num_args(data, ">", 2, args); - return_closcall1(data, cont, __num_gt(data, car(args), cadr(args)));} + integer_type argc = Cyc_length_as_object(data, args); + dispatch(data, argc.value, (function_type)dispatch_num_gt, cont, cont, args); } void __121(void *data, object cont, object args) { - Cyc_check_num_args(data, "<", 2, args); - return_closcall1(data, cont, __num_lt(data, car(args), cadr(args)));} + integer_type argc = Cyc_length_as_object(data, args); + dispatch(data, argc.value, (function_type)dispatch_num_lt, cont, cont, args); } void __125_123(void *data, object cont, object args) { - Cyc_check_num_args(data, ">=", 2, args); - return_closcall1(data, cont, __num_gte(data, car(args), cadr(args)));} + integer_type argc = Cyc_length_as_object(data, args); + dispatch(data, argc.value, (function_type)dispatch_num_gte, cont, cont, args); } void __121_123(void *data, object cont, object args) { - Cyc_check_num_args(data, "<=", 2, args); - return_closcall1(data, cont, __num_lte(data, car(args), cadr(args)));} + integer_type argc = Cyc_length_as_object(data, args); + dispatch(data, argc.value, (function_type)dispatch_num_lte, cont, cont, args); } void _apply(void *data, object cont, object args) { Cyc_check_num_args(data, "apply", 2, args);