From 413835f20f4f8cbcf0c52c2b9a6054f442c49ee3 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 27 Jan 2023 21:58:58 -0500
Subject: =?UTF-8?q?Compute=20ob=20as=20u=E2=8A=90pr=20in=20all=20compilers?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/bootstrap/boot1.bqn | 2 +-
 src/bootstrap/boot2.bqn | 2 +-
 src/c.bqn               | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/bootstrap/boot1.bqn b/src/bootstrap/boot1.bqn
index 1a833abd..9397847e 100644
--- a/src/bootstrap/boot1.bqn
+++ b/src/bootstrap/boot1.bqn
@@ -248,7 +248,7 @@ Parse ← {⟨r,vn,def⟩←𝕨⋄nv←≠vn
   ta←tr∧2(>∨|)ps(⊢-T)+`¬ro                  # Train argument (first-level)
   fa←/(hg∨ta∨ro∨«⊸∨ps<aa)<(r=1)∨»op         # Active functions: cases fe are excluded
   dy←2≠ny←fa⊏2«no⌈2׬(tr∧r≥0)∨ro<r=0        # Dyadic
-  ob←pr⊏/¯1(⊢-»)u←⍷∧pr←𝕩⊏˜pi←/hg<𝕩<sep      # Objects to be loaded
+  ob←pr⊐˜u←∧⍷pr←𝕩⊏˜pi←/hg<𝕩<sep             # Objects to be loaded
   cn←pi∾lt←/𝕩≥cl←vi+nv⋄ob∾↩(cl-˜≠u)+lt⊏𝕩    # Constants
   bk←c⊏gi                                   # Block loads
   ll←sll∾˜(¬lo/1«ps)+-⟜»1↓(lo∾1)/+`ls∾0     # List Length
diff --git a/src/bootstrap/boot2.bqn b/src/bootstrap/boot2.bqn
index dfdc76ec..65ac35d7 100644
--- a/src/bootstrap/boot2.bqn
+++ b/src/bootstrap/boot2.bqn
@@ -120,7 +120,7 @@
   ta←tr∧2(>∨|)ps(⊢-TT)+`¬ro                 # Train argument (first-level)
   fa←/(ta∨ro∨(«∨⊢)ps<aa)<(r=1)∨»op          # Active functions
   dy←fa⊏«(tr∧r≥0)∨ro<r=0                    # Dyadic
-  pr←𝕩⊏˜pi←/𝕩<sep⋄ob←pr⊏/¯1(⊢-»)u←⍷∧pr      # Objects to be loaded
+  pr←𝕩⊏˜pi←/𝕩<sep⋄ob←pr⊐˜u←∧⍷pr             # Objects to be loaded
   cn←pi∾lt←/𝕩≥cl←vi+nv⋄ob↩ob∾(cl-˜≠u)+lt⊏𝕩  # Constants
   bk←bc⊏gi                                  # Block loads
   lb←/𝕩=5+⊑bB                               # List starts
diff --git a/src/c.bqn b/src/c.bqn
index 97383819..7d91be2c 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -321,7 +321,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   fa←/(fe←hg∨ta∨ro∨«⊸∨ps<aa)<ff←(r=1)∨»op   # Active functions: cases fe are excluded
   "Second-level parts of a train must be functions"_err_(G) tr>fe∨ff
   dy←2≠ny←fa⊏2«no⌈2׬(tr∧r≥0)∨ro<r=0        # Dyadic
-  ob←pr⊏/¯1(⊢-»)u←⍷∧pr←𝕩⊏˜pi←/hg<𝕩<sep      # Objects to be loaded
+  ob←pr⊐˜u←∧⍷pr←𝕩⊏˜pi←/hg<𝕩<sep             # Objects to be loaded
   cn←pi∾lt←/𝕩≥cl←vi+nv⋄ob∾↩(cl-˜≠u)+lt⊏𝕩    # Constants
   bk←c⊏gi                                   # Block loads
   ll←sll∾˜(¬lo/1«ps)+-⟜»1↓(lo∾1)/+`ls∾0     # List Length
-- 
cgit v1.2.3