fel:stab, fel:pick

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      ::
 ::

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)