prefix-based keybindings in retro

gistfile1.txt

needs struct'
with struct'

variables| prefix lastbinding |

'; !prefix

{
  1 field .link
  1 field .label
  1 field .xt
} bind

: bind: ( d"- )
  @lastbinding &bind clone dup !lastbinding !
  getc @lastbinding !.label
  @lastbinding !.xt ;

&words bind: w
&.s    bind: s

[ dup @prefix ==
  [
    drop getc
    lastbinding [ @ dup 0 == [ 2drop -1 ]
    [ 2over @.label == [ nip .xt @ do -1 ] [ 0 ] if ] if ] until
    32
  ] ifTrue
] is remapKeys