urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-26 20:58:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

line: adds provisional +peek

Browse Source
This commit is contained in:
Joe Bryan 2024-07-22 21:53:26 -04:00
parent d125ccdddf
commit 881f4b3d1f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hoon/codegen/lib/line.hoon
View File

@ -1159,7 +1159,21 @@
=+ ver=%1 =+ ver=%1
|% |%
++ this . ++ this .
++ peek ~| %todo !! ::
++ peek
|= [s=* f=*]
=/ moat (~(get ja moan) f)
|- ^- (unit [@uvre @uwoo ^fuji]) :: XX fix product type
?~ moat ~
?. (~(huge so:sack soot.i.moat) [& s])
$(moat t.moat)
?~ u=(~(get by gong.fuji) [soot.i.moat f])
~| %not-in-gong !!
=/ p
~| %not-in-gist
(~(got by gist.fuji) [soot.i.moat f])
`[sire.p u.u fuji]
::
++ poke ~| %todo !! ++ poke ~| %todo !!
++ xray ~| %todo !! ++ xray ~| %todo !!
-- --