view,menu: simplify set-shortcut

Bogdanp · Oct 9, 2023 · 4c1b7d3 · 4c1b7d3
1 parent 66306cf
commit 4c1b7d3
Showing 1 changed file with 7 additions and 12 deletions.
diff --git a/gui-easy-lib/gui/easy/private/view/menu.rkt b/gui-easy-lib/gui/easy/private/view/menu.rkt
@@ -139,18 +139,13 @@
       (void))
 
     (define/private (set-shortcut v s)
-      (cond
-        [s
-         ;; Contract guarantees at least one prefix and one key.
-         (define-values (p k)
-           (for/fold ([p null] [k #f] #:result (values (reverse p) k))
-                     ([v (in-list s)])
-             (values (if k (cons k p) p) v)))
-         (send v set-shortcut k)
-         (send v set-shortcut-prefix p)]
-        [else
-         (send v set-shortcut #f)
-         (send v set-shortcut-prefix null)]))))
+      ;; Contract guarantees at least one prefix and one key.
+      (define-values (p k)
+        (for/fold ([p null] [k #f] #:result (values (reverse p) k))
+                  ([v (in-list (or s null))])
+          (values (if k (cons k p) p) v)))
+      (send v set-shortcut k)
+      (send v set-shortcut-prefix p))))
 
 (define menu-item-separator%
   (class* object% (view<%>)