Commits

crcx committed 53db19b Draft

fix leaving of values on the stack during prefix execution

Comments (0)

Files changed (2)

 
 label: copytag   "Retro" $,
 label: version   "11.5" $,
-label: build     "2012.11.09" $,
+label: build     "2012.11.13" $,
 label: okmsg     "ok  " $,
 
 t: ,           ( n-  ) heap # @, dup, 1+, push, !, pop, heap # !, ;
 
 w: getc getc
   repeat getc:unfiltered
-  keymap:enabled # @, 0 # !if dup, keymap:PREFIX # @, =if drop, getc:unfiltered keymap:TABLE # +, @, 0; do 0 # then then
+  keymap:enabled # @, 0 # !if dup, keymap:PREFIX # @, =if drop, getc:unfiltered keymap:TABLE # +, @, 0; swap, push, do pop, cr 0 # then then
   remapKeys dup, 0 # !if ws ; then drop, again ;
 "( -c ) Read a keypress and return the ASCII value on the stack.\nThis differs from **getc:unfiltered** in that the key value is processed\nby **remapKeys** before being returned." :doc
 

retroImage

Binary file modified.