Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2015-05-13 16:31:13 -07:00
parent 2b940d9346
commit cc2a7defb5
4 changed files with 32 additions and 14 deletions

View File

@ -640,8 +640,7 @@
[%gent ~] dy-made-gent:dye [%gent ~] dy-made-gent:dye
[%edit ~] dy-made-edit:dye [%edit ~] dy-made-edit:dye
== ==
%| ~& [%he-made-fail way] %| (he-diff(poy ~) %tan p.reg)
(he-diff(poy ~) %tan p.reg)
== ==
:: ::
++ he-unto :: result from behn ++ he-unto :: result from behn

View File

@ -134,8 +134,9 @@
++ se-drop :: passive drop ++ se-drop :: passive drop
|= gyl=gill |= gyl=gill
^+ +> ^+ +>
?. (~(has by feg) gyl) +>
=. +> (se-blit %out (tuba "[disconnected from {<gyl>}]"))
=< se-prom =< se-prom
?> (~(has by feg) gyl)
%_ +> %_ +>
feg (~(del by feg) gyl) feg (~(del by feg) gyl)
apt (skip apt |=(a=gill =(gyl a))) apt (skip apt |=(a=gill =(gyl a)))
@ -614,6 +615,10 @@
== ==
== ==
:: ::
++ gull
|= way=wire ^- (pair ship gill)
?>(?=([@ @ @ ~] way) [(slav %p i.way) (slav %p i.t.way) i.t.t.way])
::
++ poke-dill-belt ++ poke-dill-belt
|= [from bet=dill-belt] |= [from bet=dill-belt]
^- (quip move +>) ^- (quip move +>)
@ -634,18 +639,23 @@
?~ yog ?~ yog
~& [%sole-diff-stale ost way] ~& [%sole-diff-stale ost way]
[~ +>.$] [~ +>.$]
?> ?=([@ @ @ ~] way)
=< se-abet =< se-abet
=< se-view =< se-view
=+ gyl=[(slav %p i.t.way) i.t.t.way] =+ yaw=(gull way)
(~(se-diff se [~ ~] [(slav %p i.way) ost] u.yog) gyl fec) (~(se-diff se [~ ~] [p.yaw ost] u.yog) q.yaw fec)
:: ::
++ coup ++ coup
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
^- (quip move +>) ^- (quip move +>)
?~ saw [~ +>] ?~ saw [~ +>]
:_ +> :_ ~ =+ yog=(~(get by bin) ost)
[ost %flog ~ %crud %coup u.saw] ?~ yog
~& [%sole-coup-stale ost way]
[~ +>.$]
=< se-abet
=< se-view
=+ yaw=(gull way)
(~(se-drop se [[ost %flog ~ %crud %coup u.saw]~ ~] [p.yaw ost] u.yog) q.yaw)
:: ::
++ reap ++ reap
|= [then saw=(unit tang)] |= [then saw=(unit tang)]
@ -657,7 +667,14 @@
++ quit ++ quit
|= then |= then
^- (quip move +>) ^- (quip move +>)
[~ +>] =+ yog=(~(get by bin) ost)
?~ yog
~& [%sole-quit-stale ost way]
[~ +>.$]
=< se-abet
=< se-view
=+ yaw=(gull way)
(~(se-drop se [~ ~] [p.yaw ost] u.yog) q.yaw)
:: ::
++ onto ++ onto
|= [then saw=(each suss tang)] |= [then saw=(each suss tang)]
@ -669,7 +686,7 @@
== ==
:: ::
++ pull ++ pull
|= from |= [from pax=path]
^- (quip move +>) ^- (quip move +>)
:: ~& [%sole-pull ost] :: ~& [%sole-pull ost]
=^ moz +> =^ moz +>

View File

@ -1648,7 +1648,7 @@
== ==
:: ::
%cake %cake
:: ~& [%cake p.bon q.bon r.bon] ~& [%cake p.bon q.bon r.bon]
:_ fox :_ fox
:~ [s.bon %give %woot q.p.bon r.bon] :~ [s.bon %give %woot q.p.bon r.bon]
== ==

View File

@ -428,7 +428,8 @@
[%sys %rep (scot %p him) dap (scot %ud num) ~] [%sys %rep (scot %p him) dap (scot %ud num) ~]
[%f %exec our (mo-beak dap) ~ %vale p.ron our q.ron] [%f %exec our (mo-beak dap) ~ %vale p.ron our q.ron]
:: ::
%x (mo-give(hen (mo-ball him num)) %unto %quit ~) %x =. +> (mo-give %mack ~) :: XX should crash
(mo-give(hen (mo-ball him num)) %unto %quit ~)
== ==
:: ::
++ ap :: agent engine ++ ap :: agent engine
@ -548,6 +549,7 @@
:: ::
++ ap-fall :: drop from queue ++ ap-fall :: drop from queue
^+ . ^+ .
?. (~(has by sup.ged) ost) .
=+ soy=(~(get by qel.ged) ost) =+ soy=(~(get by qel.ged) ost)
?: |(?=(~ soy) =(0 u.soy)) ?: |(?=(~ soy) =(0 u.soy))
~& [%ap-fill-under [our dap] q.q.pry ost] ~& [%ap-fill-under [our dap] q.q.pry ost]
@ -778,7 +780,7 @@
^+ +> ^+ +>
=+ cug=(ap-find %poke p.cag ~) =+ cug=(ap-find %poke p.cag ~)
?~ cug ?~ cug
(ap-give %coup `(ap-suck "no poke arm")) (ap-give %coup `(ap-suck "no poke arm for {(trip p.cag)}"))
:: ~& [%ap-poke dap p.cag cug] :: ~& [%ap-poke dap p.cag cug]
=^ tur +>.$ =^ tur +>.$
%+ ap-call q.u.cug %+ ap-call q.u.cug
@ -989,7 +991,7 @@
[~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))] [~ ..^$(pol.all (~(put by pol.all) p.q.hic [hen ~ ~ ~]))]
:: ::
%rote %rote
~& [%gall-rote p.q.hic] :: ~& [%gall-rote p.q.hic]
?. (~(has by pol.all) p.p.q.hic) ?. (~(has by pol.all) p.p.q.hic)
~& [%gall-not-ours p.q.hic] ~& [%gall-not-ours p.q.hic]
[~ ..^$] [~ ..^$]