From c3e6c1be902d3917b02883103b18efca5fce7d61 Mon Sep 17 00:00:00 2001 From: sforman Date: Fri, 11 Aug 2023 20:45:25 -0700 Subject: [PATCH] i --- implementations/scheme-chicken/joy.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 820cc7f..6142462 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -54,6 +54,7 @@ ((is-it? "stack") (values (cons stack stack) expression dict)) ((is-it? "swaack") (values (cons (cdr stack) (car stack)) expression dict)) ((is-it? "swap") (values (cons (cadr stack) (cons (car stack) (cddr stack))) expression dict)) + ((is-it? "i") (joy-i stack expression dict)) ((hash-table-exists? dict symbol) (values stack (append (hash-table-ref dict symbol) expression) dict)) (else (error "Unknown word.")))) @@ -62,6 +63,8 @@ (define (joy-sub stack) (cons (- (cadr stack) (car stack)) (cddr stack))) (define (joy-mul stack) (cons (* (cadr stack) (car stack)) (cddr stack))) +(define (joy-i stack expression dict) + (values (cdr stack) (append (car stack) expression) dict)) (define (string-replace str from to) @@ -136,6 +139,6 @@ (hash-table-set! dict (car def_list) (cdr def_list)))) -(display (doit "1 2 3 [4 5 6] swaack pop swap stack")) +(display (doit "1 2 3 [4 5 6] i pop swap stack")) (newline)