diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2023-01-27 21:58:58 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2023-01-27 21:58:58 -0500 |
| commit | 413835f20f4f8cbcf0c52c2b9a6054f442c49ee3 (patch) | |
| tree | 133814043d276a88af6531252603341575ba65e1 /src/bootstrap/boot2.bqn | |
| parent | 47754a28d94ca2066cad99631ab82d38f25844b6 (diff) | |
Compute ob as u⊐pr in all compilers
Diffstat (limited to 'src/bootstrap/boot2.bqn')
| -rw-r--r-- | src/bootstrap/boot2.bqn | 2 |
1 files changed, 1 insertions, 1 deletions
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 |