Get debug prints out.

This commit is contained in:
C. Guy Yarvin 2013-10-10 11:07:49 -07:00
parent 77dc70a764
commit 14e6948e73

View File

@ -128,13 +128,11 @@
++ blab :: ship result
|= [hen=duct mun=mood dat=*]
^+ +>
~& [%blab-hen hen]
+>(byn [[hen ~ [p.mun q.mun syd] r.mun dat] byn])
::
++ bleb :: ship sequence
|= [hen=duct ins=@ud hip=(list frog)]
^+ +>
~& [%bleb-hen hen]
?~ hip +>
%= $
hip t.hip
@ -144,7 +142,6 @@
::
++ blob :: ship stop
|= hen=duct
~& [%blob-hen hen]
%_(+> byn [[hen ~] byn])
::
++ doze :: sleep until