From d43103c8d6e86b46006eb770fbb158aa35e01612 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 17 Oct 2020 16:00:21 -0400
Subject: =?UTF-8?q?Pass=20path=20via=20=E2=8D=8E=20left=20argument=20in=20?=
 =?UTF-8?q?dzref?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dzref | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'dzref')

diff --git a/dzref b/dzref
index 1106bf7f..43e6a58e 100755
--- a/dzref
+++ b/dzref
@@ -115,9 +115,12 @@ _withRef ← ˙
   lf ← @+10
   pre ← E_isdef◶E_proc‿E_redef¨ lf((⊢-˜¬×+`)∘=⊔⊢)impl
   ExecFile←{
-    path ← "dot_path←" ∾ '"' (⊣∾⊣∾˜(1+=)/⊢) (∨`⌾⌽'/'=𝕩)/𝕩
-    src ← "•path"•_r_"dot_path"∘E_proc¨ •LNS 𝕩
-    Raw ∾ ∾⟜lf¨ path <⊸∾ src
+#   path ← "dot_path←" ∾ '"' (⊣∾⊣∾˜(1+=)/⊢) (∨`⌾⌽'/'=𝕩)/𝕩
+#   src ← "•path"•_r_"dot_path"∘E_proc¨ •LNS 𝕩
+#   Raw ∾ ∾⟜lf¨ path <⊸∾ src
+    #path ← "dot_path←" ∾ '"' (⊣∾⊣∾˜(1+=)/⊢) (∨`⌾⌽'/'=𝕩)/𝕩
+    src ← E_proc¨ •LNS 𝕩 # "•path"•_r_"dot_path"∘
+    ⟨⟨⟩,"",(∨`⌾⌽'/'=𝕩)/𝕩⟩ Raw ∾ ∾⟜lf¨ src
   }
   X↩Raw∘E_proc
   _withRef ↩ {𝕗∘E_proc}
-- 
cgit v1.2.3