mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-30 23:23:07 +00:00
Code Issues 1 Releases Wiki Activity

Fix #1341.

Browse Source
This commit is contained in:
Calvin Rose
2024-01-01 08:58:10 -06:00
parent e8ed961572
commit 9142f38cbc
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/boot/boot.janet
View File

@@ -2127,6 +2127,7 @@
'upscope expandall}) 'upscope expandall})
(defn dotup [t] (defn dotup [t]
(if (= nil (next t)) (break ()))
(def h (in t 0)) (def h (in t 0))
(def s (in specs h)) (def s (in specs h))
(def entry (or (dyn h) {})) (def entry (or (dyn h) {}))

4
test/suite-boot.janet
View File

@@ -968,4 +968,8 @@
(identity a)) (identity a))
(assert (= [1 2 3] (regress-1330)) "regression 1330") (assert (= [1 2 3] (regress-1330)) "regression 1330")
# Issue 1341
(assert (= () '() (macex '())) "macex ()")
(assert (= '[] (macex '[])) "macex []")
(end-suite) (end-suite)