From 9142f38cbceb72e7d2d8a12846d2c22c2322fc34 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Mon, 1 Jan 2024 08:58:10 -0600
Subject: [PATCH] Fix #1341.

---
 src/boot/boot.janet   | 1 +
 test/suite-boot.janet | 4 ++++
 2 files changed, 5 insertions(+)

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)