From 1600fa210c08eebd57d9a33a2e4a1fdaf1a4e24c Mon Sep 17 00:00:00 2001
From: Simon Forman <sforman@hushmail.com>
Date: Sat, 18 Mar 2023 12:31:36 -0700
Subject: [PATCH] stack function.

---
 implementations/uvm-ncc/joy.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/implementations/uvm-ncc/joy.c b/implementations/uvm-ncc/joy.c
index 4cf4bb4..f6cc29b 100644
--- a/implementations/uvm-ncc/joy.c
+++ b/implementations/uvm-ncc/joy.c
@@ -572,7 +572,8 @@ joy_eval(char *symbol, u32 stack, u32 expression)
 	MATCH("clear") return (u64)expression;
 	MATCH("swaack") { stack = swaack(stack); }
 	else MATCH("pop") { stack = pop(stack); }
-	//else MATCH("") {}
+	else MATCH("stack") { stack = cons(stack, stack); }
+	//else MATCH("") { stack = (stack); }
 	CHECK_ERROR
 	//print_str(symbol);print_endl();
 	return (u64)stack << 32 | expression;
@@ -648,7 +649,7 @@ main()
 	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[true 3][aa[aa bb] aa bb cc]bob]false[]bob 3[4] ga[]ry");
 	print_joy_list(expression);