mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

use unquotes instead

This commit is contained in:
primo-ppcg 2023-06-11 18:38:20 +07:00
parent 1077efd03a
commit 32c5b816ae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/boot/boot.janet
View File

@ -675,10 +675,10 @@
(def bl (in bindings i))
(def br (in bindings (+ 1 i)))
(if (symbol? bl)
(tuple 'if (tuple 'def bl br) (aux (+ 2 i)) fal)
(tuple 'if (tuple 'def (def sym (gensym)) br)
(tuple 'do (tuple 'def bl sym) (aux (+ 2 i)))
fal)))))
~(if (def ,bl ,br) ,(aux (+ 2 i)) ,fal)
~(if (def ,(def sym (gensym)) ,br)
(do (def ,bl ,sym) ,(aux (+ 2 i)))
,fal)))))
(aux 0))
(defmacro when-let