diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 9c5a2bd9..46fcabae 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -2127,6 +2127,7 @@ 'upscope expandall}) (defn dotup [t] + (if (= nil (next t)) (break ())) (def h (in t 0)) (def s (in specs h)) (def entry (or (dyn h) {})) diff --git a/test/suite-boot.janet b/test/suite-boot.janet index 4ba8fe33..5a754e09 100644 --- a/test/suite-boot.janet +++ b/test/suite-boot.janet @@ -968,4 +968,8 @@ (identity a)) (assert (= [1 2 3] (regress-1330)) "regression 1330") +# Issue 1341 +(assert (= () '() (macex '())) "macex ()") +(assert (= '[] (macex '[])) "macex []") + (end-suite)