-
This commit is contained in:
@@ -49,6 +49,8 @@
|
|||||||
(when (symbol? (car items))
|
(when (symbol? (car items))
|
||||||
(set! menu-id (car items))
|
(set! menu-id (car items))
|
||||||
(set! items (cdr items)))
|
(set! items (cdr items)))
|
||||||
|
(when (list? (car items))
|
||||||
|
(set! items (car items)))
|
||||||
(make-ww-menu menu-id items)))
|
(make-ww-menu menu-id items)))
|
||||||
|
|
||||||
(define (menu-item id title
|
(define (menu-item id title
|
||||||
|
|||||||
Reference in New Issue
Block a user