Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-06-08 12:48:35 -07:00
parent c584282cd1
commit d155f0497f
5 changed files with 11 additions and 12 deletions

View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/hood/ape :: ::
:: :: ::
:::: /hoon/hood/ape :: ::
:: :: ::
/? 314 :: zuse version
/+ sole, talk, helm, kiln, drum :: libraries
@ -39,6 +39,8 @@
== ::
++ able :: find/make part
|* hed=hood-head
=+ rep=(~(get by lac) hed)
=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
((hood-good hed) par)

View File

@ -1,6 +1,6 @@
:: :: ::
:::: /hoon/talk/app :: ::
:: :: ::
:::: /hoon/talk/app :: ::
:: :: ::
/? 314
/- *talk, *sole
/+ talk, sole
@ -268,7 +268,6 @@
%- ~(gas in *(set partner))
(turn (~(tap by aud)) |=([a=partner *] a))
::
::
++ sh-poss :: passive update
|= lix=(set partner)
=+ sap=(sh-pare lix)
@ -287,7 +286,6 @@
::
++ sh-rend :: print on one line
|= gam=telegram
~& [%sh-rend gam]
(sh-pass:(sh-fact %txt ~(tr-line tr man.she gam)) q.q.gam)
::
++ sh-numb :: print msg number
@ -1044,7 +1042,6 @@
::
++ ra-coup-repeat ::
|= [[num=@ud her=@p man=span] saw=(unit tang)]
~& [%ra-coup-repeat +<]
(ra-repeat num [%& her man] saw)
::
++ ra-repeat :: remove from outbox
@ -1392,7 +1389,7 @@
(pa-sauce ost [%quit ~]~)
=+ ^= ruv ^- (unit river)
?: ?=(~ pax)
`[[%ud count] [%da (dec (bex 128))]]
`[[%ud ?:((lth count 64) 0 (sub count 64))] [%da (dec (bex 128))]]
?: ?=([@ ~] pax)
=+ say=(slay i.pax)
?. ?=([~ %$ ?(%ud %da) @] say) ~
@ -1678,7 +1675,6 @@
::
++ coup-repeat ::
|= [way=wire saw=(unit tang)]
~& [%coup-repeat way saw]
%+ etch-repeat [%repeat way] |= [num=@ud src=@p man=span]
ra-abet:(~(ra-coup-repeat ra ost.hid ~) [num src man] saw)
::

View File

@ -379,7 +379,7 @@
%1 q.nuf
%2 [%2 p=(grom `_p.q.nuf`p.q.hoc p.q.nuf) q=q.q.nuf]
%0 [%0 p=(grom `_p.q.nuf`p.q.hoc p.q.nuf) q=q.q.nuf]
== ==
== ==
::
++ coup :: toon to bolt
|= cof=cafe

View File

@ -4025,7 +4025,7 @@
[10 [b=* c=*] d=*]
=+ ben=$(fol c.fol)
?. ?=(%0 -.ben) ben
?: ?=(?(%hunk %lose %mean %spot) b.fol)
?: ?=(?(%hunk %hand %lose %mean %spot) b.fol)
$(fol d.fol, tax [[b.fol p.ben] tax])
$(fol d.fol)
::
@ -4066,6 +4066,7 @@
?+ -.i.p.ton rex
%hunk [(tank +.i.p.ton) rex]
%lose [[%leaf (rip 3 (,@ +.i.p.ton))] rex]
%hand :_(rex [%leaf (scow %p (mug +.i.p.ton))])
%mean :_ rex
?@ +.i.p.ton [%leaf (rip 3 (,@ +.i.p.ton))]
=+ mac=(mack +.i.p.ton +<.i.p.ton)

View File

@ -1,5 +1,5 @@
:: :: ::
:::: /hoon/drum/lib :: ::
:::: /hoon/drum/lib :: ::
:: :: ::
/? 310 :: version
!: :: ::