ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-26 00:12:28 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds support for meta-r to drum

Browse Source
This commit is contained in:
Joseph Bryan 2016-07-05 00:48:56 -04:00
parent a18701c282
commit 3114ba320f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/drum.hoon
View File

@ -787,7 +787,14 @@
ta-bel
+>(pos.inp (jump-fwrd pos.inp buf.say.inp))
::
$r ta-bel
$r %- ta-hom(lay.hit (~(put by lay.hit) pos.hit ~))
:~ %mor
(ta-cut 0 (lent buf.say.inp))
%+ ta-cat 0
?: =(pos.hit num.hit) ~
(snag (sub num.hit +(pos.hit)) old.hit)
==
::
$t =+ a=(jump-fwrd pos.inp buf.say.inp)
=+ b=(jump-bwrd a buf.say.inp)
=+ c=(jump-bwrd b buf.say.inp)