diff --git a/private/menu.rkt b/private/menu.rkt index 1b3fda8..f36f55f 100644 --- a/private/menu.rkt +++ b/private/menu.rkt @@ -49,6 +49,8 @@ (when (symbol? (car items)) (set! menu-id (car items)) (set! items (cdr items))) + (when (list? (car items)) + (set! items (car items))) (make-ww-menu menu-id items))) (define (menu-item id title