language-server: address review comments

This commit is contained in:
Philip Monk 2019-11-05 20:26:33 -08:00
parent 189f6cc955
commit 545fe25cd2
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
3 changed files with 1 additions and 34 deletions

View File

@ -1057,11 +1057,6 @@
:: ~& [%his-clock ler.cal]
:: ~& [%our-clock ven.say]
=^ dat say (~(transceive sole say) cal)
:: speedrun mode
:: =; res
:: ?. ?=(%del -.dat)
:: res
:: (he-tab:res +(p.dat))
?. ?& ?=($del -.dat)
=(+(p.dat) (lent buf.say))
==

View File

@ -11,6 +11,7 @@
==
::
++ runes
^~
%- malt
:~ :- "|$"
"""

View File

@ -1,29 +0,0 @@
|%
++ trie
|$ [key-t val-t]
[val=(unit val-t) kid=(map key-t (trie key-t val-t))]
--
::
=| a=(trie * *)
=* val-t ?>(?=(^ val.a) val.a)
|@
++ put
|* [b=(list *) c=*]
=> .(b (homo b))
|- ^+ a
?~ b
a(val `c)
=/ son (~(gut by kid.a) i.b [~ ~])
a(kid (~(put by kid.a) i.b $(a son, b t.b)))
::
++ get
|* b=(list *)
=> .(b (homo b))
|-
?~ b
[~ val.a]
=/ son (~(get by kid.a) i.b)
?~ son
[b val.a]
$(a u.son, b t.b)
--