[options.scm] typo ref -> list-ref

This commit is contained in:
Christopher Lam 2020-12-04 18:37:07 +08:00
parent 82d3bcd394
commit 51e3a65762

View File

@ -1103,7 +1103,7 @@ the option '~a'."))
(vector (lambda () (length ok-values))
(lambda (x) (vector-ref (list-ref ok-values x) 0))
(lambda (x) (vector-ref (list-ref ok-values x) 1))
(lambda (x) (vector-ref (ref ok-values x) 2))
(lambda (x) (vector-ref (list-ref ok-values x) 2))
(lambda (x) (gnc:multichoice-list-lookup ok-values x)))
(lambda () (list-strings ok-values)) #f)))