Fix code example

This commit is contained in:
Justin Ethier 2020-05-18 10:03:34 -04:00
parent f3d519f030
commit 64b81aa803

View file

@ -810,7 +810,7 @@
;; Will return a list of values for the option. ;; Will return a list of values for the option.
;; For example: ;; For example:
;; ("-a" "1" "2") ==> ("1") ;; ("-a" "1" "2") ==> ("1")
;; ("-a" "1" -a "2") ==> ("1" "2") ;; ("-a" "1" "-a" "2") ==> ("1" "2")
(define (collect-opt-values args opt) (define (collect-opt-values args opt)
(cdr (cdr
(foldl (foldl