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) ?: ?=(%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)]
:- ?. ?| ?=(?(%rush %rust %nice) p.p.q.caq) :- ?. ?| ?=(?(%rush %rust) p.p.q.caq)
?& ?=(%meta p.p.q.caq) ?& ?=(%meta p.p.q.caq)
?=([* ?(%rush %rust) *] q.p.q.caq) ?=([* ?(%rush %rust) *] q.p.q.caq)
== == == ==
@ -1153,7 +1153,7 @@
qic.sat ~ qic.sat ~
qel.sat qel.sat
?~ qol ?~ qol
~& [%took-underflow our hen] :: ~& [%took-underflow our hen]
qel.sat qel.sat
?: =(`1 qol) ?: =(`1 qol)
(~(del by qel.sat) ost) (~(del by qel.sat) ost)

View File

@ -366,10 +366,10 @@
?~ +>.sih ?~ +>.sih
(pa-acquire [%& her man]~) (pa-acquire [%& her man]~)
~& [%pa-friend-mean +>.sih] ~& [%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 *] [%g %rush %rodeo-report *]
~& [%pa-friend-report +>+.sih] :: ~& [%pa-friend-report +>+.sih]
=. +> %+ pa-scrub ost =. +> %+ pa-scrub ost
:_ ~ :_ ~
:- /friend/show/(scot %p her)/[man] :- /friend/show/(scot %p her)/[man]