aboutsummaryrefslogtreecommitdiff
path: root/src/r1.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2023-02-14 09:59:47 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2023-02-14 09:59:47 -0500
commit4d9aeaf87d33292b007900d1fda2c2ec1ed8196c (patch)
tree16ab07eaeed77ea6b71202b5d0911a668016c5d9 /src/r1.bqn
parent29c036e86130e35a473bd9c0867b53c470a0aa08 (diff)
Fix infinite loop when 𝕨 contains ∞ in reshape
Diffstat (limited to 'src/r1.bqn')
-rw-r--r--src/r1.bqn2
1 files changed, 1 insertions, 1 deletions
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×´⊢)‿{