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

View File

@ -175,7 +175,6 @@
?+ +<.sih !! ?+ +<.sih !!
%nice +>.$ %nice +>.$
?(%rust %rush) ?(%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 =. 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] mow :- [ost %pass [%resp pax] %g %took [our.hid [auc imp.hid]] you]