Better debug.

This commit is contained in:
C. Guy Yarvin 2013-12-28 22:50:27 -05:00
parent 13e63a1db1
commit 6fd2a8c841

View File

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