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:38:15 -08:00
parent f34b4547a5
commit 4b3117e349
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
implementations/C/joy.c
View File

@ -578,6 +578,16 @@ clear(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
}
void
dup(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{
JoyList s = *stack;
JoyList node = pop_any(stack);
*stack = s;
push_thing(node->head, stack);
}
void
truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{
@ -614,16 +624,6 @@ truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
}
void
dup(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{
JoyList s = *stack;
JoyList node = pop_any(stack);
*stack = s;
push_thing(node->head, stack);
}
JoyList def_abs_body;
JoyList def_anamorphism_body;
JoyList def_app1_body;