ted: add -code thread

This commit is contained in:
Liam Fitzgerald 2021-02-09 10:28:49 +10:00
parent c888af3a30
commit a1eda0469b
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

13
pkg/arvo/ted/code.hoon Normal file
View 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)