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

stack function.

This commit is contained in:
Simon Forman 2023-03-18 12:31:36 -07:00
parent fcdf8d416a
commit 1600fa210c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -572,7 +572,8 @@ joy_eval(char *symbol, u32 stack, u32 expression)
MATCH("clear") return (u64)expression; MATCH("clear") return (u64)expression;
MATCH("swaack") { stack = swaack(stack); } MATCH("swaack") { stack = swaack(stack); }
else MATCH("pop") { stack = pop(stack); } else MATCH("pop") { stack = pop(stack); }
//else MATCH("") {} else MATCH("stack") { stack = cons(stack, stack); }
//else MATCH("") { stack = (stack); }
CHECK_ERROR CHECK_ERROR
//print_str(symbol);print_endl(); //print_str(symbol);print_endl();
return (u64)stack << 32 | expression; return (u64)stack << 32 | expression;
@ -648,7 +649,7 @@ main()
print_endl(); print_endl();
*/ */
u32 expression = text_to_expression("1 2 3 [4 5 6] swaack pop 23"); u32 expression = text_to_expression("1 2 3 [4 5 6] swaack pop 23 stack 18");
//u32 expression = text_to_expression("1 2 3 clear 4 5 6"); //u32 expression = text_to_expression("1 2 3 clear 4 5 6");
//u32 expression = text_to_expression(" 1[2[true 3][aa[aa bb] aa bb cc]bob]false[]bob 3[4] ga[]ry"); //u32 expression = text_to_expression(" 1[2[true 3][aa[aa bb] aa bb cc]bob]false[]bob 3[4] ga[]ry");
print_joy_list(expression); print_joy_list(expression);