minor edit

diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm
index 07c020b..68097a0 100644 (file)
--- 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)