puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch lang rust): initial commit

Browse source
This commit is contained in:
puck 2024-11-25 22:06:44 +00:00
parent d52a1e7796
commit 5380ac9307
12 changed files with 1392 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/src/zexpr.sld
View file

@ -117,7 +117,7 @@
(define (iter-unquote-handler val handlers)
(if (eq? handlers '())
(error "Cannot unquote this value.")
(error "Cannot unquote this value." val)
(let ((result ((car handlers) val)))
(if (eq? result #f)
(iter-unquote-handler val (cdr handlers))