From db5fd6791436728690817dd09264e0d31dd3ab28 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 26 Jan 2015 11:15:35 -0800
Subject: [PATCH] fel:stab, fel:pick

---
 arvo/hoon.hoon | 6 +++---
 arvo/zuse.hoon | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 19f9c548b..307c3e134 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -3653,9 +3653,9 @@
   |=  pax=path  ^-  tape
   =-  ~(ram re %rose ["/" "/" ~] -)
   (turn pax |=(a=span [%leaf (trip a)]))
-++  stab                                                ::  parse span to path
-  |=  zep=@ta  ^-  path
-  (rash zep ;~(pfix fas (more fas urs:ab)))
+++  stab                                                ::  parse cord to path
+  =+  fel=;~(pfix fas (more fas urs:ab))
+  |=(zep=@t `path`(rash zep fel))
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ::                section 2eM, regular-expressions      ::
 ::
diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index f83b44d1c..c77aa0766 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -2655,8 +2655,8 @@
   (turn b |=(c=span (cat 3 '_' (wack c))))
 ::
 ++  pick                                                ::  light path decoding
-  |=  a=span  ^-  (unit ,[p=term q=path])
-  (rush a (most cab (sear wick urt:ab)))
+  =+  fel=(most cab (sear wick urt:ab))
+  |=(a=span `(unit ,[p=term q=path])`(rush a fel))
 ++  saxo                                                ::  autocanon
   |=  who=ship
   ^-  (list ship)