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

Gnucash · Dec 4, 2020 · 51e3a65 · 51e3a65
1 parent 82d3bcd
commit 51e3a65
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libgnucash/app-utils/options.scm b/libgnucash/app-utils/options.scm
@@ -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)))