This commit is contained in:
pcmonk 2014-07-09 15:59:44 -07:00
commit 96482b8292
2 changed files with 4 additions and 5 deletions

View File

@ -13,7 +13,7 @@
==
++ gift
$% [%rust gilt]
[%rasp gult]
[%nice gult]
==
++ move ,[p=bone q=[%give p=gift]]
--
@ -98,6 +98,6 @@
^- [(list move) _+>]
~& [%poke [%state p.vat] ost you jon]
:_ +>(p.vat +(p.vat))
:~ [ost %give %rasp %json jon]
:~ [ost %give %nice %json jon]
==
--

View File

@ -9,7 +9,7 @@
==
++ gift
$% [%rust gilt]
[%rasp gilt]
[%nice gilt]
==
++ move ,[p=bone q=[%give p=gift]]
++ phil
@ -17,7 +17,6 @@
[%add p=(list ,@p)]
==
--
|= *
|_ [hid=hide vat=axle]
++ incl
|= wal=wall
@ -29,7 +28,7 @@
::
++ respond :: respond to message
|= ost=bone
`move`[ost %give %rasp %json *json]
`move`[ost %give %nice %json *json]
::
++ update :: update subscribers
^- (list move)