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

Minor cleanup.

This commit is contained in:
sforman 2023-10-24 14:29:38 -07:00
parent 8f3a4f3f07
commit f7c7dc2052
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -268,14 +268,12 @@
(define (joy-inscribe stack0 expression dict0) (define (joy-inscribe stack0 expression dict0)
(receive (def stack) (pop-list stack0) (receive (def stack) (pop-list stack0)
(if (null-list? def) (if (null-list? def) (abort "Empty definition.")
(abort "Empty definition.")
(receive (name body) (car+cdr def) (receive (name body) (car+cdr def)
(if (symbol? name) (if (not (symbol? name)) (abort "Def name isn't symbol.")
(let ((dict (hash-table-copy dict0))) (let ((dict (hash-table-copy dict0)))
(hash-table-set! dict name body) (hash-table-set! dict name body)
(values stack expression dict)) (values stack expression dict)))))))
(abort "Def name isn't symbol."))))))
;██╗ ██╗████████╗██╗██╗ ███████╗ ;██╗ ██╗████████╗██╗██╗ ███████╗