From 4d9aeaf87d33292b007900d1fda2c2ec1ed8196c Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 14 Feb 2023 09:59:47 -0500
Subject: =?UTF-8?q?Fix=20infinite=20loop=20when=20=F0=9D=95=A8=20contains?=
 =?UTF-8?q?=20=E2=88=9E=20in=20reshape?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 7b9d88a0..ab883f83 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -713,7 +713,7 @@ ReshapeT ← "∘⌊⌽↑"_glyphLookup_(↕5)
 Reshape←{
   "𝕨⥊𝕩: 𝕨 must have rank at most 1" ! 1≥=𝕨
   s←Deshape 𝕨
-  sp←0+´p←(1-Nat)⌜s
+  sp←0+´p←Nat◶⟨1,∞⊸=⟩⌜s
   "𝕨⥊𝕩: 𝕨 must consist of natural numbers" ! 1≥sp
   n←≠d←Deshape 𝕩
   l←sp◶(1×´⊢)‿{
-- 
cgit v1.2.3