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))
=+ myr=(clan p.q.hic)
?: =(%pawn myr)
[[p.q.hic %dojo] [p.q.hic %hive] ~]
[[p.q.hic %dojo] [p.q.hic %drum] ~]
?: =(%earl myr)
=+ fap=(sein p.q.hic)
[[fap %dojo] [fap %hive] ~]
[[p.q.hic %dojo] [p.q.hic %hive] ~]
[[fap %dojo] [fap %drum] ~]
[[p.q.hic %dojo] [p.q.hic %drum] ~]
=^ moz all abet:(need (ax (need hey.all) [%flow %sole flo]))
[moz ..^$]
=+ nus=(ax hen q.hic)

View File

@ -110,7 +110,8 @@
++ ra-evil :: emit error
|= msg=cord
~& [%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
|= [pax=path hiz=hiss]

View File

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