bark: minimally viable fake-mark handling

This commit is contained in:
fang 2023-07-19 20:23:39 +02:00
parent 102c439b75
commit 6d61042794
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
2 changed files with 8 additions and 0 deletions

View File

@ -51,6 +51,10 @@
|= [=mark =vase]
^- (quip card _this)
?+ mark (on-poke:def mark vase)
%noun
=+ !<([m=@ n=*] vase)
$(mark m, vase (need (slew 3 vase)))
::
%set-tlon-api-key
`this(tlon.api !<(@t vase))
::

View File

@ -26,6 +26,10 @@
|= [=mark =vase]
^- (quip card _this)
?+ mark (on-poke:def mark vase)
%noun
=+ !<([m=@ n=*] vase)
$(mark m, vase (need (slew 3 vase)))
::
%set-host
?> =(src.bowl our.bowl)
`this(bark-host !<(ship vase))