Revert to slightly superior old vane interface.

This commit is contained in:
C. Guy Yarvin 2017-04-23 10:10:11 -07:00
parent 7283b40e3a
commit e786d38d1a
2 changed files with 10 additions and 10 deletions

View File

@ -2081,16 +2081,18 @@
++ doze ~
++ peek roof
++ spin
=| hen/duct
=| $: hen/duct
moz/(list (wind note gift))
==
|%
++ call
|= task
^- {(list (wind note gift)) _+>}
^+ +>
!!
::
++ take
|= {tea/wire hin/sign}
^- {(list (wind note gift)) _+>}
^+ +>
!!
--
--

View File

@ -73,17 +73,15 @@
++ doze *(unit @da) :: awake when
++ peek roof
++ spin :: work on state
=| hen/duct :: cause stack
=| $: hen/duct :: cause stack
moz/(list (wind note gift)) :: actions, reversed
==
^| |%
++ call :: advancing effect
|~ task
:_ ^|(+>)
*(list (wind note gift))
|~(task ^|(+>))
::
++ take :: returning effect
|~ {wire sign}
:_ ^|(+>)
*(list (wind note gift))
|~({wire sign} ^|(+>))
-- ::
--
-- ::