clay: scry kernel source out of arvo for reef short-circuit
++ deep
|= [pax=path src=cord]
^- ?
- :: XX scry into arvo
- ::
- :: //=//=/mod/fat
- :: =+ (~(get ^de fat) pax)
- :: &(?=(^ fil) ?=(%hoon p.fil) =(src q.fil))
- ::
- =/ our-lobe=lobe
- (page-to-lobe hoon/src)
- =/ =dome dom:(~(got by dos.rom) %home)
- =/ =yaki (~(got by hut.ran) (~(got by hit.dome) let.dome))
- =/ lobe=(unit lobe)
- (~(get by q.yaki) (weld pax /hoon))
- &(?=(^ lobe) =(our-lobe u.lobe))
+ :: XX use roof
+ ::
+ :: =/ dat (rof `[our ~ ~] $/[[our $/da/now] mod/fat/pax])
+ :: ?: |(?=(~ dat) ?=(~ u.dat)) |
+ :: =/ nod !<((axal (cask)) q.u.u.dat)
+ ::
+ =/ dat
+ ;; (unit (unit (axal (cask))))
+ ((sloy-light ski) [hoon-version %noun] %$ our %$ da/now mod/fat/pax)
+ ?: |(?=(~ dat) ?=(~ u.dat)) |
+ =* nod u.u.dat
+ &(?=(^ fil.nod) ?=(%hoon p.u.fil.nod) =(src q.u.fil.nod))
--
::
++ page-to-cord
