From b2e7dbac083a003c93c4511dc9057651069f035f Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 9 Feb 2021 21:59:01 -0500
Subject: =?UTF-8?q?Fix=20Replicate=20when=20=F0=9D=95=A8=20contains=20an?=
 =?UTF-8?q?=20enclosed=20number?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/r.bqn')

diff --git a/src/r.bqn b/src/r.bqn
index 594f7a76..d70f51c4 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -513,7 +513,8 @@ JoinTo←∨○(1<=)◶(∾○⥊)‿{
 } _fillBy_ IF
 
 Rep ← Indices⊸⊏
-Replicate ← IsArray∘⊣◶{
+Replicate ← (0<=∘⊣)◶{
+  𝕨↩(0⊑⥊)⍟IsArray𝕨
   "/: Amounts to replicate must be natural numbers" ! Nat 𝕨
   e←r←𝕨
   ({e+↩r⋄1+𝕩}⍟{e=𝕨}˜`↕r×≠𝕩) ⊏ 𝕩
-- 
cgit v1.2.3