From 7b079cb1eca5f4658b3f1f415b09cc2e330f8af0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 2 Aug 2020 13:29:33 -0400
Subject: Replace _amend with ` as a basic runtime operation

---
 dzref_full      |  3 +--
 impl.bqn        | 12 ------------
 test/cmpref.bqn |  3 +--
 3 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/dzref_full b/dzref_full
index b6e9e517..2857a8cb 100755
--- a/dzref_full
+++ b/dzref_full
@@ -33,11 +33,10 @@ X←Raw←{≤4}
 
   ⍎¨ ⟨
     "IsArray ← 0≠≡"
-    "_amend  ← {𝕨{𝕩⋄𝕗}⌾(𝕗⊑⊢)𝕩}"
     "Type    ← ⟨⟩⥊0⊸⥊"
     "Log     ← ⋆⁼"
     '!' Mod "{𝕩 ⋄ ≤1}⍟¬"
-  ⟩∾Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜"
+  ⟩∾Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜`"
 
 
   # checks if line is a builtin redefinition
diff --git a/impl.bqn b/impl.bqn
index 1401e115..0848136f 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -148,18 +148,6 @@ _rankOp_←{
   Enc↩(>⟜0+≥⟜=)◶⟨<⊢,Enc,<¨⊢⟩
   > ((0⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩
 }
-_scan←{
-  ! IsArray 𝕩
-  ! 1≤=𝕩
-  F←𝔽
-  {
-    r←⥊𝕩 ⋄ l←≠𝕩 ⋄ c←×´1 Cell 𝕩
-    {r↩r𝕩_amend˜𝕨F○(⊑⟜r)𝕩}⟜(c⊸+)¨↕c-˜≠r
-    (≢𝕩)⥊r
-  }⍟(0<≠∘⥊)𝕩
-}
-
-` ← _scan
 ⎉ ← _rankOp_
 ˘ ← {𝔽⎉¯1}
 _insert←{
diff --git a/test/cmpref.bqn b/test/cmpref.bqn
index 86788f81..30bb2e2f 100755
--- a/test/cmpref.bqn
+++ b/test/cmpref.bqn
@@ -30,11 +30,10 @@ Mod ← {((⊑chr⊐𝕨)⊑names) ∾ " ← " ∾ 𝕩}
 
 pre ← ⟨
   "IsArray ← 0≠≡"
-  "_amend  ← {𝕨{𝕩⋄𝕗}⌾(𝕗⊑⊢)𝕩}"
   "Type    ← ⟨⟩⥊0⊸⥊"
   "Log     ← ⋆⁼"
   '!' Mod "{𝕩 ⋄ ≤1}⍟¬"
-⟩∾Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜"
+⟩∾Mod⟜⥊¨ "+-×÷⋆⌊=≤≢⥊⊑↕⌜`"
 
 
 # checks if line is a builtin redefinition
-- 
cgit v1.2.3