From a56a3939c1e707a77e64d5c0fffc5ddcdac34c25 Mon Sep 17 00:00:00 2001 From: sforman Date: Thu, 10 Aug 2023 21:46:56 -0700 Subject: [PATCH] minor edit --- implementations/scheme-chicken/joy.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 07c020b..68097a0 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -4,9 +4,9 @@ (if (null? expression) (values stack dict) (if (string? (car expression)) - (receive (s e dict0) + (receive (s e d) (joy-eval (car expression) stack (cdr expression) dict) - (joy s e dict0)) + (joy s e d)) (joy (cons (car expression) stack) (cdr expression) dict)))) (define (joy-eval symbol stack expression dict) -- 2.11.0