diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/bootstrap/boot1.bqn | 2 | ||||
| -rw-r--r-- | src/bootstrap/boot2.bqn | 2 | ||||
| -rw-r--r-- | src/c.bqn | 2 |
3 files changed, 3 insertions, 3 deletions
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 @@ -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 |