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 void
cmp_joyfunc(JoyListPtr stack, JoyListPtr expression) cmp_joyfunc(JoyListPtr stack, JoyListPtr expression)
{ {
int hmm; JoyList L = pop_list_node(stack);
mpz_t *a, *b; JoyList E = pop_list_node(stack);
JoyList G, E, L; JoyList G = pop_list_node(stack);
L = pop_list_node(stack); mpz_t *b = pop_int(stack);
E = pop_list_node(stack); mpz_t *a = pop_int(stack);
G = pop_list_node(stack); int hmm = mpz_cmp(*a, *b);
b = pop_int(stack);
a = pop_int(stack);
hmm = mpz_cmp(*a, *b);
push_quote(((hmm > 0) ? G : (hmm < 0) ? L : E), expression); push_quote(((hmm > 0) ? G : (hmm < 0) ? L : E), expression);
} }
@ -568,9 +565,8 @@ i_joyfunc(JoyListPtr stack, JoyListPtr expression)
void void
branch(JoyListPtr stack, JoyListPtr expression) branch(JoyListPtr stack, JoyListPtr expression)
{ {
JoyList T, F; JoyList T = pop_list_node(stack);
T = pop_list_node(stack); JoyList F = pop_list_node(stack);
F = pop_list_node(stack);
push_quote((pop_bool(stack) ? T : F), expression); push_quote((pop_bool(stack) ? T : F), expression);
} }