menelaus.scm

@@ -297,12 +297,12 @@
     (press-key-aux keycode key)))
 
 ;; Record that a given key being released resulted in a modifier release.
-(define (release-modifier modifier key n)
+(define (release-modifier keycode key n)
   (if (= (or (vector-ref keys-for-modifiers n) (- 0 1)) key)
       (begin
-        (set! modifiers (^ modifiers modifier))
+        (set! modifiers (^ modifiers (unmodify keycode)))
         (vector-set! keys-for-modifiers n #f))
-      (and (< n 7) (release-modifier modifier key (+ n 1)))))
+      (and (< n 7) (release-modifier keycode key (+ n 1)))))
 
 ;; Record a key release, clearing it out of the press tracking data.
 (define (release-key key)
@@ -320,7 +320,9 @@
                 (vector-set! keys-for-frame slot #f))
               #f)
           (if modifier-slot
-              (release-modifier (call-c-func "mathpow" 2 modifier-slot) key 0)
+              (begin
+                (release-modifier keycode key 0)
+                (release-key key))
               #f)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Send USB

usb_keyboard.c

@@ -33,9 +33,6 @@
 int16_t mathlog2(int x) {
   return round(log(x)/log(2));
 }
-int16_t mathpow(int x, int y) {
-  return round(pow(x, y));
-}
 
 /**************************************************************************
  *