Clean up some debug printfs.

This commit is contained in:
C. Guy Yarvin 2015-01-19 07:24:25 -08:00
parent cf35697ac4
commit fae2286561
2 changed files with 2 additions and 3 deletions

View File

@ -684,6 +684,7 @@
:_ ~
:- [%$ 12]~
(cave !>([[our app.sat imp] cub.sat sup.sat pus.sat [act.sat eny now]]))
::
++ core |=(vax=vase (cove %core vax)) :: core as silk
++ cove :: cage as silk
|= cay=cage
@ -1057,7 +1058,6 @@
[%meta (spec (slot 15 caq))]
::
[%give p=[p=@tas q=*]]
~? =(%meta p.p.q.caq) %sump-meta
?: ?=(%mean p.p.q.caq)
:- `[hon %nuke our]
`[hon %give %mean (ares q.p.q.caq)]
@ -1103,7 +1103,7 @@
++ yawn :: start event
|= kon=knob
^+ +>
:: ~& [%gall-yawn ost imp -.kon]
~& [%gall-yawn ost imp -.kon]
=. qic.sat `[hen kon]
?- -.kon
%boot

View File

@ -175,7 +175,6 @@
?+ +<.sih !!
%nice +>.$
?(%rust %rush)
~& [%terminal-pour-rush pax [our.hid [auc imp.hid]]]
=. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack
%_ +>.$
mow :- [ost %pass [%resp pax] %g %took [our.hid [auc imp.hid]] you]