From 32c5b816ae888c346a3525cc2729950d26831a02 Mon Sep 17 00:00:00 2001 From: primo-ppcg Date: Sun, 11 Jun 2023 18:38:20 +0700 Subject: [PATCH] use unquotes instead --- src/boot/boot.janet | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 4c158f44..43699aa6 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -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