From 1bad1508f154bd5c2cdf5b34a2cb843d3e5a1e38 Mon Sep 17 00:00:00 2001 From: sforman Date: Thu, 10 Aug 2023 21:47:54 -0700 Subject: [PATCH] dup --- implementations/scheme-chicken/joy.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 68097a0..2ae03de 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -14,10 +14,12 @@ (cond ((is-it? "+") (values (joy-add 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)))) (define (joy-add 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)