fix radio accumulator
This commit is contained in:
parent
ecb36f5d72
commit
f5557c6179
3
run.scm
3
run.scm
|
@ -86,7 +86,8 @@
|
||||||
(make-menu '(("Select me!")
|
(make-menu '(("Select me!")
|
||||||
("Or me!")
|
("Or me!")
|
||||||
("No, select me!"))
|
("No, select me!"))
|
||||||
#:accumulator (cute menu-fold <> '() cons)
|
#:accumulator
|
||||||
|
(cute menu-fold <> *unspecified* (lambda (val seed) val))
|
||||||
#:prototype radio-menu))))
|
#:prototype radio-menu))))
|
||||||
(nixo "Choose as many as you want!")
|
(nixo "Choose as many as you want!")
|
||||||
(nixo
|
(nixo
|
||||||
|
|
Loading…
Reference in New Issue