From d9c56581877376cb12c6b6c319fb4fc1714564c0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 17 Feb 2021 16:33:36 -0500
Subject: Fix errors in reference function testing up to layer 3

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

(limited to 'src')

diff --git a/src/pp.bqn b/src/pp.bqn
index cb614dcb..aec45a7c 100644
--- a/src/pp.bqn
+++ b/src/pp.bqn
@@ -18,7 +18,7 @@ pn ← init∾¨'0'∾¨post
 ⟨in,out⟩ ← GetReplacements ⟨⥊¨chr,pn⟩
 
 # Make a new name for primitive 𝕩
-itr ← 0⥊˜≠chr
+itr ← ¯1⥊˜≠chr
 Shadow ← {
   i←⊑chr⊐𝕩
   n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr
-- 
cgit v1.2.3