Changed /lib/talk to actually make us of the bowl as originally intended.

This commit is contained in:
Fang 2017-11-01 19:05:38 +01:00
parent 8158a63e9b
commit e359bb4968
2 changed files with 10 additions and 12 deletions

View File

@ -421,7 +421,7 @@
=- (ta-think & our.bol tos)
|- ^- tos/(list thought)
?~ ses ~
=^ sir eny.bol (uniq eny.bol)
=^ sir eny.bol ~(uniq talk bol)
:_ $(ses t.ses)
[sir aud [now.bol i.ses]]
::

View File

@ -32,22 +32,20 @@
[%app dap.bol (crip (en-purl:html url))]~ :: XX
::
++ said :: app message
|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
|= mes/(list tank)
:- %talk-action
^- action
:- %convey
|- ^- (list thought)
:- %phrase
:- [[our.bol %inbox] ~ ~]
|- ^- (list speech)
?~ mes ~
:_ $(mes t.mes, eny (sham eny mes))
^- thought
:+ (shaf %thot eny)
[[our %inbox] ~ ~]
[now [%app dap (crip ~(ram re i.mes))]]
:_ $(mes t.mes)
^- speech
[%app dap.bol (crip ~(ram re i.mes))]
::
++ uniq
|= eny/@uvJ
^- {serial _eny}
[(shaf %serial eny) (shax eny)]
^- {serial _eny.bol}
[(shaf %serial eny.bol) (shax eny.bol)]
::
++ range-to-path ::< msg range to path
::> turns a range structure into a path used for