From ab59762e97c7f68f271fde7401d93c26bbbe7d6d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 26 Mar 2023 16:37:54 -0700 Subject: New function: arithp. * lib.h (arithp): Declared. (plus_s): Existing symbol declared. * arith.c (arithp): New function. * struct.h (special_slot): New enum member plus_m. * struct.c (special_sym): Register plus_s together as the [plus_m] entry of the array. * tests/016/arith.tl * tests/016/ud-arith.tl: Tests for arithp. * txr.1: Documented. * stdlib/doc-syms.tl: Updated. --- struct.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'struct.c') diff --git a/struct.c b/struct.c index 04b429cc..da9b8051 100644 --- a/struct.c +++ b/struct.c @@ -114,7 +114,8 @@ val iter_begin_s, iter_more_s, iter_item_s, iter_step_s, iter_reset_s; static val *special_sym[num_special_slots] = { &equal_s, &nullify_s, &from_list_s, &lambda_s, &lambda_set_s, &length_s, &car_s, &cdr_s, &rplaca_s, &rplacd_s, - &iter_begin_s, &iter_more_s, &iter_item_s, &iter_step_s, &iter_reset_s + &iter_begin_s, &iter_more_s, &iter_item_s, &iter_step_s, &iter_reset_s, + &plus_s }; static struct cobj_class *struct_type_cls; -- cgit v1.2.3