diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-07-13 15:15:09 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-07-13 15:15:09 -0400 |
| commit | 4c7368f6cad8443aed82cd9c54a377e824cbed69 (patch) | |
| tree | a8c406c933a72ecaef26888ac714fda52c7b3b67 /src/cjs.bqn | |
| parent | ff5c390e759c76728e14b104eb60a218384589cb (diff) | |
Rudimentary/buggy support for two headerless bodies
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 906fa55d..40ef9841 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -19,12 +19,12 @@ FP ← ∞⊸=◶⟨F,"Infinity"⟩ # Format positive number Num ← 0⊸≤◶⟨"-"∾FP∘|,FP⟩ # Format number glyphs ← •Import "glyphs.bqn" -_getComp ← { (3+useInd) ↑ (𝕗 •Import "c.bqn"){𝔽} } +_getComp ← { (4+useInd) ↑ (𝕗 •Import "c.bqn"){𝔽} } useInd ← "-i"≡⊑args←•args ⋄ args↓˜↩useInd Comp ← ((<"runtime" Ind F)¨↕62) glyphs _getComp ⊢ J ← ∾∾⟜(@+10)¨ Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩ -Fout ← (≠↑⟨F,Fconst,L ·=◶⟨F,L(L F¨)¨⟩¨4⊸↑,F⟩˙) {L𝕎¨𝕩}¨ ⊢ +Fout ← (≠↑⟨F,Fconst,L =◶⟨F,L(L F¨)¨⟩¨,L ·F¨2⊸↑,F⟩˙) {L𝕎¨𝕩}¨ ⊢ Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ LFC ← Long∘Fout∘Comp |