From fe96ec4831914abc29955257924fc8ec5e24beba Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 30 Apr 2021 13:01:01 -0400
Subject: Fix Take/Drop left argument error messages

---
 src/r1.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 571953d6..f5a295ee 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -434,8 +434,8 @@ structFn ← {
 _takeDrop←{
   ⟨gl,Noop,_inds⟩←𝕗
   pre ← "𝕨"∾gl∾"𝕩: 𝕨 must "
-  ernk ← "have rank at most 1"
-  eint ← "consist of integers"
+  ernk ← pre∾"have rank at most 1"
+  eint ← pre∾"consist of integers"
   {
     ernk ! 1≥=𝕨
     𝕨 ↩ Deshape 𝕨
-- 
cgit v1.2.3