simplifies ++ta-hom

This commit is contained in:
Joseph Bryan 2016-09-06 17:13:53 -04:00
parent 4b7d33335f
commit 6854bfabb8

View File

@ -626,8 +626,7 @@
|= ted/sole-edit
^+ +>
=. +> (ta-det ted)
=. +> (ta-dog(say.inp (~(commit sole say.inp) ted)) ted)
+>
(ta-dog(say.inp (~(commit sole say.inp) ted)) ted)
::
++ ta-jump :: buffer pos
|= {dir/?($l $r) til/?($ace $edg $wrd) pos/@ud}