ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds support for meta-t to drum

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-03 20:57:43 -04:00
parent 76261feed4
commit a3c13e28a4
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/drum.hoon
View File

@ -775,7 +775,20 @@
+>(pos.inp (jump-fwrd pos.inp buf.say.inp))
::
$r ta-bel
$t ta-bel
$t =+ a=(jump-fwrd pos.inp buf.say.inp)
=+ b=(jump-bwrd a buf.say.inp)
=+ c=(jump-bwrd b buf.say.inp)
?: =(b c)
ta-bel
=+ prev=`(pair @ud @ud)`[c (jump-fwrd c buf.say.inp)]
=+ next=`(pair @ud @ud)`[b a]
%- ta-hom(pos.inp q.next)
:~ %mor
(ta-cut p.next (sub q.next p.next))
(ta-cat p.next (slag p.prev (scag q.prev buf.say.inp)))
(ta-cut p.prev (sub q.prev p.prev))
(ta-cat p.prev (slag p.next (scag q.next buf.say.inp)))
==
::
?($u $l)
?: =(pos.inp (lent buf.say.inp))