      {
        [ dup key-down? ]
        [
-         key-down-sym key-value set
+         sym>> key-value set
          key-pressed-value on
          key-down>> dup [ call ] [ drop ] if
          t

     }
     { [ t ] [ 2drop t ] }
   }
   cond ;
     {
       [ dup button-down? ]
       [
         #>> button-value set
         mouse-pressed-value on
         button-down>> dup [ call ] [ drop ] if
         t
