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

Move pop_list().

This commit is contained in:
Simon Forman 2023-03-18 11:41:16 -07:00
parent 8682135380
commit 75ba7db666
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,17 +362,37 @@ ht_has(char *str, u32 index, u32 length)
/******************************************************************************/ /******************************************************************************/
u32
pop_list(u32 stack)
{
if (!stack) {
error = NOT_ENOUGH_VALUES_ON_STACK;
return 0;
}
u32 list = head(stack);
if (TYPE_OF(list) != joyList) {
error = NOT_A_LIST;
return 0;
}
return list;
}
u32 u32
push_symbol(char *symbol, u32 stack) push_symbol(char *symbol, u32 stack)
{ {
return cons(JOY_VALUE(joySymbol, ht_insert(symbol)), stack); return cons(JOY_VALUE(joySymbol, ht_insert(symbol)), stack);
} }
u32 u32
push_int(u32 n, u32 stack) push_int(u32 n, u32 stack)
{ {
return cons(JOY_VALUE(joyInt, n), stack); return cons(JOY_VALUE(joyInt, n), stack);
} }
/******************************************************************************/ /******************************************************************************/
bool bool
@ -557,22 +577,6 @@ joy_eval(char *symbol, u32 stack, u32 expression)
} }
u32
pop_list(u32 stack)
{
if (!stack) {
error = NOT_ENOUGH_VALUES_ON_STACK;
return 0;
}
u32 list = head(stack);
if (TYPE_OF(list) != joyList) {
error = NOT_A_LIST;
return 0;
}
return list;
}
u64 u64
swaack(u32 stack) swaack(u32 stack)
{ {