diff --git a/test.rkt b/test.rkt index af2d653..8a25a8e 100644 --- a/test.rkt +++ b/test.rkt @@ -22,7 +22,8 @@ (filter symbol? (list (if (positive? (bitwise-and mods 1)) 'ctrl 0) (if (positive? (bitwise-and mods 2)) 'shift 0) (if (positive? (bitwise-and mods 4)) 'alt 0) - (if (positive? (bitwise-and mods 8)) 'super 0)))) + (if (positive? (bitwise-and mods 8)) 'super 0) + (if (positive? (bitwise-and mods 64)) altgr 0)))) (define (usb-save mods . args) (set! last-usb-frame (cons (mods-list mods) args)))