From 5bcdc8091c6a587f9dff5871b81d1bc97ffcec1a Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 11 Nov 2021 19:10:59 -0500 Subject: Fix source index output from cjs.bqn --- src/cjs.bqn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/cjs.bqn b/src/cjs.bqn index 3dc61691..1f89154d 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -24,8 +24,8 @@ useInd ← "-i"≡⊑args←•args ⋄ args↓˜↩useInd Comp ← ((<"runtime" Ind F)¨↕≠∾glyphs) glyphs _getComp ⊢ J ← ∾∾⟜(@+10)¨ Fconst ← ≡◶⟨@⊸≤◶{Num𝕩}‿Char, Str, ⊑⟩ -Fout ← (≠↑⟨F,Fconst,L =◶⟨F,L(L F¨)¨⟩¨,L ·F¨2⊸↑,F⟩˙) {L𝕎¨𝕩}¨ ⊢ -Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ +Fout ← (≠↑⟨F,Fconst,L =◶⟨F,L(L F¨)¨⟩¨,L ·F¨2⊸↑,L F¨⟩˙) {L𝕎¨𝕩}¨ ⊢ +Long ← ∾ (≠↑1‿4/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ LFC ← Long∘Fout∘Comp RT ← { -- cgit v1.2.3