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

dup

This commit is contained in:
sforman 2023-08-10 21:47:54 -07:00
parent a56a3939c1
commit 1bad1508f1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,10 +14,12 @@
(cond (cond
((is-it? "+") (values (joy-add stack) expression dict)) ((is-it? "+") (values (joy-add stack) expression dict))
((is-it? "-") (values (joy-sub stack) expression dict)) ((is-it? "-") (values (joy-sub stack) expression dict))
((is-it? "dup") (values (joy-dup stack) expression dict))
(else (values (cons symbol stack) expression dict)))) (else (values (cons symbol stack) expression dict))))
(define (joy-add stack) (cons (+ (cadr stack) (car stack)) (cddr stack))) (define (joy-add stack) (cons (+ (cadr stack) (car stack)) (cddr stack)))
(define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack))) (define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack)))
(define (joy-dup stack) (cons (car stack) stack))
(define (string-replace str from to) (define (string-replace str from to)