aboutsummaryrefslogtreecommitdiff
path: root/src/cjs.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-07-12 17:30:38 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-07-12 20:39:08 -0400
commitff5c390e759c76728e14b104eb60a218384589cb (patch)
treead0e50a94e9abdb926f1f4b767a4de8dae25e7e9 /src/cjs.bqn
parent5138b2f0436d99b55224e2a1f8d1b38c685314af (diff)
Support two lists of function start indices; use for deferred blocks that require 𝕨
Diffstat (limited to 'src/cjs.bqn')
-rwxr-xr-xsrc/cjs.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn
index d422d873..906fa55d 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -1,7 +1,7 @@
#! /usr/bin/env bqn
# Javascript/JSON formatting
-L ← "["∾"]"∾˜1↓·∾","⊸∾¨ # Native list/array
+L ← "["∾"]"∾˜(0<≠)◶⟨"",1↓·∾","⊸∾¨⟩ # Native list/array
Ind ← {∾𝕨‿"["‿𝕩‿"]"} # Native list/array indexing
Cat ← {∾𝕨‿".concat("‿𝕩‿")"} # Native list/array concatenation (like ∾)
# Escape the special characters that appear in BQN sources.
@@ -24,7 +24,7 @@ useInd ← "-i"≡⊑args←•args ⋄ args↓˜↩useInd
Comp ← ((<"runtime" Ind F)¨↕62) glyphs _getComp ⊢
J ← ∾∾⟜(@+10)¨
Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩
-Fout ← (≠↑⟨F,Fconst,L ·F¨4⊸↑,F⟩˙) {L𝕎¨𝕩}¨ ⊢
+Fout ← (≠↑⟨F,Fconst,L ·=◶⟨F,L(L F¨)¨⟩¨4⊸↑,F⟩˙) {L𝕎¨𝕩}¨ ⊢
Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢
LFC ← Long∘Fout∘Comp