corrects axes in arvo interface comments
:: larval Arvo structural interface
::
|%
- ++ come ^come :: 22
- ++ load ^load :: 46
- ++ peek |=(* ~) :: 47
+ ++ come ^come :: 4
+ ++ load ^load :: 10
+ ++ peek |=(* ~) :: 46
::
- ++ poke |= * :: 10
+ ++ poke |= * :: 47
^- [(list ovum) *]
=> .(+< ((hard ,[now=@da ovo=ovum]) +<))
^- [(list ovum) *]
(turn vanes.^poke |=([label=@tas =vane] [label vase.vane]))
(load u.who now u.eny ova=~ u.bod nyf)
::
- ++ wish |= txt=* :: 4
+ ++ wish |= txt=* :: 22
?> ?=(@ txt)
q:(slap ?~(bod pit u.bod) (ream txt))
--
=< :: Arvo structural interface
::
|%
- ++ come |= {@ @ @ (list ovum) vise pone} :: 22
+ ++ come |= {@ @ @ (list ovum) vise pone} :: 4
^- {(list ovum) _+>}
~& %hoon-come
=^ rey +>+ (^come +<)
[rey +>.$]
::
- ++ load |= {@ @ @ (list ovum) vase pane} :: 46
+ ++ load |= {@ @ @ (list ovum) vase pane} :: 10
^- {(list ovum) _+>}
~& %hoon-load
=^ rey +>+ (^load +<)
[rey +>.$]
::
- ++ peek |=(* (^peek ((hard {@da path}) +<))) :: 47
+ ++ peek |=(* (^peek ((hard {@da path}) +<))) :: 46
::
- ++ poke |= * :: 10
+ ++ poke |= * :: 47
^- [(list ovum) *]
=> .(+< ((hard ,[now=@da ovo=ovum]) +<))
=^ ova +>+.$ (^poke now ovo)
=/ avo $(ova t.ova)
[[+.vov -.avo] +.avo]
::
- ++ wish |=(* (^wish ((hard @ta) +<))) :: 4
+ ++ wish |=(* (^wish ((hard @ta) +<))) :: 22
--
:: Arvo implementation core
::
