ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Refactor peek.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-05 16:02:34 -08:00
parent dbb5ca3673
commit 59815373bd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/hoon.hoon
View File

@ -7361,7 +7361,7 @@
~& %hoon-load
=^ rey +>+ (^load +<)
[rey +>.$]
++ peek |=(* (^peek ((hard ,[@p @da path]) +<))) :: 87
++ peek |=(* (^peek ((hard ,[@da path]) +<))) :: 87
++ poke |= * :: 42
^- [(list ovum) *]
=> .(+< ((hard ,[now=@da ovo=ovum]) +<))
@ -7405,9 +7405,9 @@
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
::
++ peek :: external inspect
|= [our=@p now=@da hap=path]
|= [now=@da hap=path]
^- (unit)
?~ hap ~
?~ hap [~ stub]
((~(beck (is eny vil bud fan) now) ~) hap)
::
++ poke :: external apply
@ -7422,7 +7422,7 @@
^- [p=(list ovum) q=*]
=+ pax=(weld hap `path`[%hoon ~])
~& [%vega-start hap]
=+ src=((hard ,@t) (need (peek ~zod now cx/pax)))
=+ src=((hard ,@t) (need (peek now cx/pax)))
=+ saz=(shax src)
=+ gen=(rain hap src)
~& %vega-parsed