diff --git a/private/menu.rkt b/private/menu.rkt index bb1d5df..872bbf9 100644 --- a/private/menu.rkt +++ b/private/menu.rkt @@ -87,6 +87,7 @@ ) (let ((h (make-hasheq))) (hash-set! h 'menu r) + (hash-set! h 'menu-id (ww-menu-id menu)) h))) (define (menu-for-each menu cb)