shrub/pkg/arvo/ted/build-mark.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ pax=path] arg)
?~  bem=(de-beam:format pax)
  (strand-fail:strand %path-not-beam >pax< ~)
=/  =mark  (rear s.u.bem)
;<  =dais:clay  bind:m  (build-mark:strandio -.u.bem mark)
(pure:m !>(dais))
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`/- spider`
			`/+ strandio`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= arg=vase`
			`=/ m (strand ,vase)`
			`^- form:m`
various: start threads with unit of tuple args Instead of a list of arguments, with trailing ~. 2020-12-02 01:38:02 +03:00			`=+ !<([~ pax=path] arg)`
-build-{cast,file,mark}: accept full beams; load from any desk 2020-07-08 10:08:17 +03:00			`?~ bem=(de-beam:format pax)`
			`(strand-fail:strand %path-not-beam >pax< ~)`
zuse, clay, various: unflop the spur in beams Unflops the spur in +en-beam, +de-beam, and everything that calls either of those, or works with the consequences of their output. This includes clay's interface for mounting and unmounting, which now no longer expects the arguments to contain an old-style spur. 2020-11-24 04:20:36 +03:00			`=/ =mark (rear s.u.bem)`
-build-{cast,file,mark}: accept full beams; load from any desk 2020-07-08 10:08:17 +03:00			`;< =dais:clay bind:m (build-mark:strandio -.u.bem mark)`
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`(pure:m !>(dais))`