sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor cleanup

This commit is contained in:
Simon Forman 2023-02-05 08:12:32 -08:00
parent b1a06979c2
commit 4181daf40c
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
implementations/C/joy.c
View File

@ -545,15 +545,12 @@ neq [true] [false] [true] cmp
void
cmp_joyfunc(JoyListPtr stack, JoyListPtr expression)
{
int hmm;
mpz_t *a, *b;
JoyList G, E, L;
L = pop_list_node(stack);
E = pop_list_node(stack);
G = pop_list_node(stack);
b = pop_int(stack);
a = pop_int(stack);
hmm = mpz_cmp(*a, *b);
JoyList L = pop_list_node(stack);
JoyList E = pop_list_node(stack);
JoyList G = pop_list_node(stack);
mpz_t *b = pop_int(stack);
mpz_t *a = pop_int(stack);
int hmm = mpz_cmp(*a, *b);
push_quote(((hmm > 0) ? G : (hmm < 0) ? L : E), expression);
}
@ -568,9 +565,8 @@ i_joyfunc(JoyListPtr stack, JoyListPtr expression)
void
branch(JoyListPtr stack, JoyListPtr expression)
{
JoyList T, F;
T = pop_list_node(stack);
F = pop_list_node(stack);
JoyList T = pop_list_node(stack);
JoyList F = pop_list_node(stack);
push_quote((pop_bool(stack) ? T : F), expression);
}