From 09b85c2c2e45890eb41beb03178d7df5119b84a7 Mon Sep 17 00:00:00 2001 From: Nulo Date: Mon, 13 Dec 2021 16:41:55 -0300 Subject: [PATCH] Agregar altgr a los tests --- test.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))