More instruments.

This commit is contained in:
C. Guy Yarvin 2014-05-26 14:01:07 -07:00
parent ce0a07d426
commit 53cd9e3a23
2 changed files with 2 additions and 1 deletions

View File

@ -28,6 +28,7 @@
|= wab=(list blit)
^+ +>
?~ wab +>
:: +>(mos [[hen [%give %meta !>(`_[p=_@tas q=_*]`[%blit (flop wab)])]] mos])
+>(mos [[hen [%give %blit (flop wab)]] mos])
::
++ wod :: word forward

View File

@ -8874,7 +8874,7 @@
=+ tiv=(slot 3 mex) :: tiv: vase of vase
?. (sunk p.tiv) :: a vase is a cell
~& (,@tas -.p.tiv)
~_ `tank`~(duck ut p.tiv)
~& p.tiv
~& %song-b !!
?. (souk -:!>(*type) p:(slot 2 tiv)) :: vase head is type
~& %song-c !! ::