mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-05 22:03:50 +03:00
gall: clear out some printfs
All of these were used for debugging.
This commit is contained in:
parent
c512eba4b1
commit
3d0137687f
@ -369,7 +369,6 @@
|
|||||||
[%f %build live=%.y schematic]
|
[%f %build live=%.y schematic]
|
||||||
::
|
::
|
||||||
=/ pass [path note-arvo]
|
=/ pass [path note-arvo]
|
||||||
~& [%mo-passing pass]
|
|
||||||
(mo-pass pass)
|
(mo-pass pass)
|
||||||
::
|
::
|
||||||
:: +mo-pass: prepend a standard %pass move to the move state.
|
:: +mo-pass: prepend a standard %pass move to the move state.
|
||||||
@ -388,7 +387,6 @@
|
|||||||
^+ mo-state
|
^+ mo-state
|
||||||
::
|
::
|
||||||
=/ =move [hen [%give gift]]
|
=/ =move [hen [%give gift]]
|
||||||
~& [%mo-giving move]
|
|
||||||
mo-state(moves [move moves])
|
mo-state(moves [move moves])
|
||||||
::
|
::
|
||||||
:: +mo-contains-valid-bowl: check that a vase contains a valid bowl.
|
:: +mo-contains-valid-bowl: check that a vase contains a valid bowl.
|
||||||
@ -454,7 +452,6 @@
|
|||||||
::
|
::
|
||||||
=/ old mo-state
|
=/ old mo-state
|
||||||
::
|
::
|
||||||
~& [%mo-initialising term]
|
|
||||||
=/ wag
|
=/ wag
|
||||||
=/ =routes [disclosing=~ attributing=our]
|
=/ =routes [disclosing=~ attributing=our]
|
||||||
=/ =privilege [%high routes]
|
=/ =privilege [%high routes]
|
||||||
@ -465,17 +462,13 @@
|
|||||||
=/ new +.wag
|
=/ new +.wag
|
||||||
::
|
::
|
||||||
?^ maybe-tang
|
?^ maybe-tang
|
||||||
~& [%mo-got-tang u.maybe-tang]
|
|
||||||
=. mo-state old
|
=. mo-state old
|
||||||
(mo-give %onto %.n u.maybe-tang)
|
(mo-give %onto %.n u.maybe-tang)
|
||||||
::
|
::
|
||||||
~& %mo-abetting-new
|
|
||||||
=. mo-state ap-abet:new
|
=. mo-state ap-abet:new
|
||||||
::
|
::
|
||||||
~& %mo-clearing-queue
|
|
||||||
=/ cleared (mo-clear-queue term)
|
=/ cleared (mo-clear-queue term)
|
||||||
=/ =suss [term %boot now]
|
=/ =suss [term %boot now]
|
||||||
~& [%mo-giving-boot suss]
|
|
||||||
(mo-give:cleared %onto [%.y suss])
|
(mo-give:cleared %onto [%.y suss])
|
||||||
::
|
::
|
||||||
:: +mo-new-agent: create a new agent and add it to state.
|
:: +mo-new-agent: create a new agent and add it to state.
|
||||||
@ -938,16 +931,12 @@
|
|||||||
|= =term
|
|= =term
|
||||||
^+ mo-state
|
^+ mo-state
|
||||||
::
|
::
|
||||||
~& [%mo-clearing-queue-for term]
|
|
||||||
::
|
|
||||||
?. (~(has by running.apps.gall) term)
|
?. (~(has by running.apps.gall) term)
|
||||||
~& %mo-nothing-running
|
|
||||||
mo-state
|
mo-state
|
||||||
::
|
::
|
||||||
=/ maybe-blocked (~(get by waiting.apps.gall) term)
|
=/ maybe-blocked (~(get by waiting.apps.gall) term)
|
||||||
::
|
::
|
||||||
?~ maybe-blocked
|
?~ maybe-blocked
|
||||||
~& %mo-nothing-blocked
|
|
||||||
mo-state
|
mo-state
|
||||||
::
|
::
|
||||||
=/ =blocked u.maybe-blocked
|
=/ =blocked u.maybe-blocked
|
||||||
@ -961,7 +950,6 @@
|
|||||||
==
|
==
|
||||||
::
|
::
|
||||||
=^ task blocked [p q]:~(get to blocked)
|
=^ task blocked [p q]:~(get to blocked)
|
||||||
~& [%mo-found-task task]
|
|
||||||
::
|
::
|
||||||
=/ =duct p.task
|
=/ =duct p.task
|
||||||
=/ =privilege q.task
|
=/ =privilege q.task
|
||||||
@ -973,7 +961,6 @@
|
|||||||
=/ card [%slip %g %deal sock internal-task]
|
=/ card [%slip %g %deal sock internal-task]
|
||||||
[duct card]
|
[duct card]
|
||||||
::
|
::
|
||||||
~& [%mo-prepending-move move]
|
|
||||||
$(moves [move moves])
|
$(moves [move moves])
|
||||||
::
|
::
|
||||||
:: +mo-beak: assemble a beak for the provided app.
|
:: +mo-beak: assemble a beak for the provided app.
|
||||||
|
Loading…
Reference in New Issue
Block a user