beep on C-t if line is too short. closes #125

This commit is contained in:
~hatteb-mitlyd 2014-03-25 11:31:38 -07:00
parent 619666ee35
commit 779ab3f1ea

View File

@ -243,7 +243,9 @@
bul bus.u.q.q.yar
but (scag bus.u.q.q.yar but.u.q.q.yar)
==
%t =+ ^= pos
%t ?: (lth bul.u.q.q.yar 2)
beep
=+ ^= pos
?: =(bul.u.q.q.yar bus.u.q.q.yar)
(sub bus.u.q.q.yar 2)
?: =(0 bus.u.q.q.yar)