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

pop

This commit is contained in:
sforman 2023-08-11 20:34:40 -07:00
parent b921a9e3d2
commit 9fbb7c05c3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
implementations/scheme-chicken/joy.scm
View File

@ -50,6 +50,7 @@
((is-it? "*") (values (joy-mul stack) expression dict)) ((is-it? "*") (values (joy-mul stack) expression dict))
((is-it? "mul") (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? "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? "stack") (values (cons stack stack) expression dict))
((is-it? "swaack") (values (cons (cdr stack) (car stack)) expression dict)) ((is-it? "swaack") (values (cons (cdr stack) (car stack)) expression dict))
((hash-table-exists? dict symbol) ((hash-table-exists? dict symbol)
@ -134,6 +135,6 @@
(hash-table-set! dict (car def_list) (cdr def_list)))) (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) (newline)