28 lines
490 B
Plaintext
28 lines
490 B
Plaintext
/+ libstrand=strand
|
|
=, strand=strand:libstrand
|
|
|%
|
|
+$ thread $-(vase shed:khan)
|
|
+$ input [=tid =cage]
|
|
+$ tid tid:strand
|
|
+$ bowl bowl:strand
|
|
+$ http-error
|
|
$? %bad-request :: 400
|
|
%forbidden :: 403
|
|
%nonexistent :: 404
|
|
%offline :: 504
|
|
==
|
|
+$ start-args
|
|
$: parent=(unit tid)
|
|
use=(unit tid)
|
|
=beak
|
|
file=term
|
|
=vase
|
|
==
|
|
+$ inline-args
|
|
$: parent=(unit tid)
|
|
use=(unit tid)
|
|
=beak
|
|
=shed:khan
|
|
==
|
|
--
|