-
This commit is contained in:
@@ -88,7 +88,7 @@
|
|||||||
)
|
)
|
||||||
(let ((h (make-hasheq)))
|
(let ((h (make-hasheq)))
|
||||||
(hash-set! h 'menu r)
|
(hash-set! h 'menu r)
|
||||||
(hash-set! h 'menu-id (if fj (format "~a" (ww-menu-id menu)) (ww-menu-id menu)))
|
(hash-set! h 'id (if fj (format "~a" (ww-menu-id menu)) (ww-menu-id menu)))
|
||||||
h))))
|
h))))
|
||||||
|
|
||||||
(define (menu-for-each menu cb)
|
(define (menu-for-each menu cb)
|
||||||
|
|||||||
Reference in New Issue
Block a user