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

pop_any()

This commit is contained in:
Simon Forman 2023-03-18 12:48:59 -07:00
parent 83a5bc46df
commit 142f17fd37
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
implementations/uvm-ncc/joy.c
View File

@ -363,14 +363,23 @@ ht_has(char *str, u32 index, u32 length)
/******************************************************************************/
u32
pop_list(u32 stack)
pop_any(u32 stack)
{
if (!stack) {
error = NOT_ENOUGH_VALUES_ON_STACK;
return 0;
}
u32 list = head(stack);
return head(stack);
}
u32
pop_list(u32 stack)
{
u32 list = pop_any(stack);
CHECK_ERROR
if (TYPE_OF(list) != joyList) {
error = NOT_A_LIST;
return 0;
@ -593,10 +602,8 @@ swaack(u32 stack)
u32
pop(u32 stack)
{
if (!stack) {
error = NOT_ENOUGH_VALUES_ON_STACK;
return 0;
}
pop_any(stack);
CHECK_ERROR
return tail(stack);
}
@ -604,11 +611,9 @@ pop(u32 stack)
u32
dup(u32 stack)
{
if (!stack) {
error = NOT_ENOUGH_VALUES_ON_STACK;
return 0;
}
return cons(head(stack), stack);
u32 tos = pop_any(stack);
CHECK_ERROR
return cons(tos, stack);
}