Less spammy debug information

This commit is contained in:
Raymond Pasco 2016-10-13 21:18:55 -04:00
parent b98717cfb6
commit 8275335a35

View File

@ -353,7 +353,7 @@
|- ^+ +>.^$
?~ wol +>.^$
?. ((sane %t) (crip i.wol)) :: XX upstream validation
~& bad-text+`*`i.wol
~& bad-text+<`*`i.wol>
$(wol t.wol)
$(wol t.wol, +>.^$ (se-blit %out (tuba i.wol)))
::
@ -422,7 +422,7 @@
|= txt/tape
^+ +>
?. ((sane %t) (crip txt)) :: XX upstream validation
~& bad-text+`*`txt
~& bad-text+<`*`txt>
+>
?. se-ably (se-talk [%leaf txt]~)
(se-blit %out (tuba txt))