More printfs in update.

This commit is contained in:
C. Guy Yarvin 2013-12-28 22:48:22 -05:00
parent 93b26b1072
commit 13e63a1db1

View File

@ -14,7 +14,9 @@
:- [%la %leaf "updating..."]
%+ turn syn
|= des=@tas
~& [%awaiting bos]
=+ der=((hard dome) .^(%cv /(scot %p bos)/[des]/=))
~& [%awaiting who]
=+ owr=((hard dome) .^(%cv /(scot %p who)/[des]/=))
=+ sab=`saba`[bos des [0 let.der] (flop (turn hit.der |=(a=frog q.a)))]
=+ lum=(~(auld ze est owr) est %fine sab)