mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 11:24:21 +03:00
Merge pull request #4398 from urbit/lf/spider-code
ted: add -code thread
This commit is contained in:
commit
071fcc621b
12
pkg/arvo/mar/tape.hoon
Normal file
12
pkg/arvo/mar/tape.hoon
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
|_ tap=tape
|
||||||
|
++ grad %noun
|
||||||
|
++ grow
|
||||||
|
|%
|
||||||
|
++ noun tap
|
||||||
|
++ json s+(crip tap)
|
||||||
|
--
|
||||||
|
++ grab
|
||||||
|
|%
|
||||||
|
++ noun tape
|
||||||
|
--
|
||||||
|
--
|
13
pkg/arvo/ted/code.hoon
Normal file
13
pkg/arvo/ted/code.hoon
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
/- spider
|
||||||
|
/+ strandio
|
||||||
|
=, strand=strand:spider
|
||||||
|
^- thread:spider
|
||||||
|
|= arg=vase
|
||||||
|
=/ m (strand ,vase)
|
||||||
|
^- form:m
|
||||||
|
;< =bowl:spider bind:m get-bowl:strandio
|
||||||
|
;< code=@p bind:m (scry:strandio @p /j/code/(scot %p our.bowl))
|
||||||
|
%- pure:m
|
||||||
|
!> ^- tape
|
||||||
|
%+ slag 1
|
||||||
|
(scow %p code)
|
Loading…
Reference in New Issue
Block a user