fix radio accumulator

2021-01-12 15:12:12 +01:00 · 2021-01-12 15:12:12 +01:00 · f5557c6179
parent ecb36f5d72
commit f5557c6179
1 changed files with 2 additions and 1 deletions
--- a/run.scm
+++ b/run.scm
@ -86,7 +86,8 @@
                  (make-menu '(("Select me!")
                               ("Or me!")
                               ("No, select me!"))
-                             #:accumulator (cute menu-fold <> '() cons)
+                             #:accumulator
+                             (cute menu-fold <> *unspecified* (lambda (val seed) val))
                             #:prototype radio-menu))))
        (nixo "Choose as many as you want!")
        (nixo