Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-03-26 12:29:04 -07:00
parent 03af496c5d
commit c35e6f4f30
4 changed files with 6 additions and 5 deletions

View File

@ -382,11 +382,11 @@
=+ ^= flo ^- (list (pair ship term)) =+ ^= flo ^- (list (pair ship term))
=+ myr=(clan p.q.hic) =+ myr=(clan p.q.hic)
?: =(%pawn myr) ?: =(%pawn myr)
[[p.q.hic %dojo] [p.q.hic %hive] ~] [[p.q.hic %dojo] [p.q.hic %drum] ~]
?: =(%earl myr) ?: =(%earl myr)
=+ fap=(sein p.q.hic) =+ fap=(sein p.q.hic)
[[fap %dojo] [fap %hive] ~] [[fap %dojo] [fap %drum] ~]
[[p.q.hic %dojo] [p.q.hic %hive] ~] [[p.q.hic %dojo] [p.q.hic %drum] ~]
=^ moz all abet:(need (ax (need hey.all) [%flow %sole flo])) =^ moz all abet:(need (ax (need hey.all) [%flow %sole flo]))
[moz ..^$] [moz ..^$]
=+ nus=(ax hen q.hic) =+ nus=(ax hen q.hic)

View File

@ -110,7 +110,8 @@
++ ra-evil :: emit error ++ ra-evil :: emit error
|= msg=cord |= msg=cord
~& [%ra-evil msg] ~& [%ra-evil msg]
(ra-emit ost %give %mean ~ msg ~) :: (ra-emit ost %give %mean ~ msg ~)
(ra-emit ost %give %nice ~)
:: ::
++ ra-hiss :: emit http request ++ ra-hiss :: emit http request
|= [pax=path hiz=hiss] |= [pax=path hiz=hiss]

View File

@ -84,7 +84,7 @@
(most ;~(plug com ace) sp-gill) (most ;~(plug com ace) sp-gill)
%+ cook %+ cook
|= a=ship |= a=ship
[[a %dojo] [a %hive] ~] [[a %dojo] [a %drum] ~]
;~(pfix sig fed:ag) ;~(pfix sig fed:ag)
== ==
:: ::