-

private/menu.rkt

@@ -93,7 +93,9 @@
                           (let ((submenu (ww-menu-item-submenu item)))
                             (if (eq? submenu #f)
                                 (cb item)
-                                (menu-for-each submenu cb))))
+                                (menu-for-each submenu cb)))
+                          (f (cdr items))
+                          )
                         )
                     )
                   ))