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

minor edit

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

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

@ -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)