remove extraneous printfs

This commit is contained in:
Philip C Monk 2015-03-09 17:36:04 -04:00
parent 1d6e199d65
commit c5fb969904
4 changed files with 3 additions and 8 deletions

View File

@ -25,7 +25,7 @@
[%writ p=riot] :: response
== ::
++ khan ::
$: fil=(unit (unit cage)) ::
$: fil=(unit (unit cage)) :: XX see khan-to-soba
dir=(map ,@ta khan) ::
== ::
++ kiss :: in request ->$
@ -864,7 +864,6 @@
..wake ?~ u.cas (blub p.i.xiq)
(blab p.i.xiq p.q.i.xiq u.u.cas)
==
~& [%sydhit syd hit.dom let.dom]
=+ nao=(case-to-aeon:ze q.p.q.i.xiq)
?~ nao $(xiq t.xiq, xaq [i.xiq xaq])
$(xiq t.xiq, ..wake (balk p.i.xiq u.nao p.q.i.xiq))
@ -2176,7 +2175,6 @@
=^ mos ruf
=+ zot=abet.zat
[-.zot (posh q.p.+.q.hin syd +.zot ruf)]
~& %wafting
[mos ..^$(ran.ruf ran.zat)] :: merge in new obj
::
%wake
@ -2212,6 +2210,7 @@
^- rand
[p q [p q.q]:r]
::
:: XX perhaps fil.khan should be (unit (unit mime)) and !>
++ khan-to-soba
|= [ank=(unit ankh) kan=(unit khan)]
^- soba

View File

@ -872,10 +872,8 @@
%+ cope (fang cof for bek)
|= [cof=cafe pro=vase]
?: &((slob %grow p.pro) (slob too p:(slap pro [%cnzy %grow])))
~& [%herep-a -.vax]
%+ cope (keel cof pro [[%& 6]~ vax]~)
|= [cof=cafe pox=vase]
~& %herep-b
(maim cof pox [%tsgr [%cnzy %grow] [%cnzy too]])
%+ cope (fang cof too bek)
|= [cof=cafe pro=vase]
@ -1069,7 +1067,6 @@
%+ cool |.(leaf/"ford: vale {<p.kas>} {<q.kas>} {<`@p`(mug r.kas)>}")
%+ cope (lave cof p.kas q.kas r.kas)
|= [cof=cafe vax=vase]
~& [%valing p.kas p.vax]
(fine cof `cage`[p.kas vax])
==
::

View File

@ -6,7 +6,6 @@
|_ own=@t
::
++ grow :: convert to
~& hoon=(met 3 own)
|%
++ mime `^mime`[/text/hoon (taco own)] :: convert to %mime
++ psal ;div:(pre:"{(trip own)}") :: convert to %html

View File

@ -6,6 +6,6 @@
::
++ grab :: convert from
|%
++ noun ,(urge cord) :: clam from %noun
++ noun (urge cord) :: clam from %noun
--
--