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

No reason to pass expression to function.

This commit is contained in:
Simon Forman 2023-03-18 11:40:19 -07:00
parent 13d9d83383
commit 8682135380
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -550,8 +550,9 @@ u64
joy_eval(char *symbol, u32 stack, u32 expression)
{
MATCH("clear") return (u64)expression;
MATCH("swaack") return swaack(stack, expression);
print_str(symbol);print_endl();
MATCH("swaack") { stack = swaack(stack); }
CHECK_ERROR
//print_str(symbol);print_endl();
return (u64)stack << 32 | expression;
}
@ -573,13 +574,11 @@ pop_list(u32 stack)
u64
swaack(u32 stack, u32 expression)
swaack(u32 stack)
{
u32 list = pop_list(stack);
CHECK_ERROR
stack = cons(tail(stack), list);
CHECK_ERROR
return (u64)stack << 32 | expression;
return cons(tail(stack), list);
}