Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-01-26 14:41:24 -08:00
parent 0e6434f3ee
commit 1ebd16fd2a
2 changed files with 4 additions and 4 deletions

View File

@ -1062,7 +1062,7 @@
?: ?=(%mean p.p.q.caq)
:- `[hon %nuke our]
`[hon %give %mean (ares q.p.q.caq)]
:- ?. ?| ?=(?(%rush %rust %nice) p.p.q.caq)
:- ?. ?| ?=(?(%rush %rust) p.p.q.caq)
?& ?=(%meta p.p.q.caq)
?=([* ?(%rush %rust) *] q.p.q.caq)
== ==
@ -1153,7 +1153,7 @@
qic.sat ~
qel.sat
?~ qol
~& [%took-underflow our hen]
:: ~& [%took-underflow our hen]
qel.sat
?: =(`1 qol)
(~(del by qel.sat) ost)

View File

@ -366,10 +366,10 @@
?~ +>.sih
(pa-acquire [%& her man]~)
~& [%pa-friend-mean +>.sih]
pa-monitor(sources.config (~(del in sources.config) [%& her man]))
pa-monitor(sources.shape (~(del in sources.shape) [%& her man]))
::
[%g %rush %rodeo-report *]
~& [%pa-friend-report +>+.sih]
:: ~& [%pa-friend-report +>+.sih]
=. +> %+ pa-scrub ost
:_ ~
:- /friend/show/(scot %p her)/[man]