diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2024-01-01 08:58:10 -0600 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2024-01-01 08:58:31 -0600 |
| commit | 9142f38cbceb72e7d2d8a12846d2c22c2322fc34 (patch) | |
| tree | 503d14872be3f9f02377fde3fe1c314cf8027df5 | |
| parent | Merge pull request #1344 from ianthehenry/peg-sub-special (diff) | |
Fix #1341.
| -rw-r--r-- | src/boot/boot.janet | 1 | ||||
| -rw-r--r-- | test/suite-boot.janet | 4 |
2 files changed, 5 insertions, 0 deletions
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) |