From fcd6f3feb1d12e4a1ec271e560ebe804f4ae5d68 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 14 Oct 2020 16:01:03 -0400 Subject: =?UTF-8?q?Move=20from=20=E2=80=A2EX=20to=20=E2=80=A2Import?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cjs.bqn | 4 ++-- src/pr.bqn | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/cjs.bqn b/src/cjs.bqn index fc9db6f1..b481cdc0 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -1,6 +1,6 @@ #! /usr/bin/env dbqn -compile ← •EX •path∾"c.bqn" +compile ← •Import •path∾"c.bqn" Comp ← ((<"runtime["∾⍕∾"]"˙)¨↕62)⊸Compile FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ Esc ← (⟨"\t","\n","\r","\'","\"""⟩∾<∘⥊)⊑˜("'"""∾˜@+9‿10‿13)⊑∘⊐⊢ @@ -13,7 +13,7 @@ Fout ← ⟨⊢,Fconst,L⟩ {L𝕎¨𝕩}¨ ⊢ Frun ← ("provide.concat("∾∾⟜")")⌾(1⊸⊑) Fout Long ← ∾ (1‿2/⟨" new Uint8Array("∾∾⟜")"⋄((@+10)∾" ,")⊸∾⟩) {𝕎𝕩}¨ ⊢ • ← (⊑"r"‿"c"‿"fmt"⊐⊏)◶⟨ - {𝕩⋄Long Frun {𝕩⊸↓⌾(1⊸⊑)Comp𝕨}´ •EX •path∾"pr.bqn"} + {𝕩⋄ref‿len←•Import•path∾"pr.bqn"⋄Long Frun len⊸↓⌾(1⊸⊑)Comp ref} {𝕩⋄Long Fout Comp J •LNS •path∾"c.bqn"} {𝕩⋄Long Fout Comp J •LNS •path∾"fmt.bqn"} ¯1 ↓ · J L∘Fout∘Comp¨ diff --git a/src/pr.bqn b/src/pr.bqn index e028cbc5..77d664ff 100755 --- a/src/pr.bqn +++ b/src/pr.bqn @@ -26,6 +26,7 @@ Inc ← { # Required functionality passed in as an argument def ← ⟨"IsArray","Type","Log","GroupLen","GroupOrd"⟩ keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘" +len ⇐ def+○≠keep ki ← chr⊐keep kt ← (+`nc)(∾((≠def)∾¯1↓⊣)+⊔⟜⊒∘⍋)ki names ↩ (⥊¨kt⊏chr)⌾(ki⊸⊏)names @@ -43,5 +44,4 @@ E_redef ← { # handles [fmd] [←↩] (E_proc 1↑𝕩) ∾ "←" ∾ tail } -ref ← ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr -⟨ref, def+○≠keep⟩ +ref ⇐ ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr -- cgit v1.2.3