From 9fbb7c05c3b0154c45ddf68fa083a6ac328ef6fa Mon Sep 17 00:00:00 2001 From: sforman Date: Fri, 11 Aug 2023 20:34:40 -0700 Subject: [PATCH] pop --- implementations/scheme-chicken/joy.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 70a8581..c3c32eb 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -50,6 +50,7 @@ ((is-it? "*") (values (joy-mul stack) expression dict)) ((is-it? "mul") (values (joy-mul stack) expression dict)) ((is-it? "dup") (values (cons (car stack) stack) expression dict)) + ((is-it? "pop") (values (cdr stack) expression dict)) ((is-it? "stack") (values (cons stack stack) expression dict)) ((is-it? "swaack") (values (cons (cdr stack) (car stack)) expression dict)) ((hash-table-exists? dict symbol) @@ -134,6 +135,6 @@ (hash-table-set! dict (car def_list) (cdr def_list)))) -(display (doit "1 2 3 [4 5 6] swaack stack")) +(display (doit "1 2 3 [4 5 6] swaack pop stack")) (newline)