Ticket #314: spiffy-request-vars-as-boolean.patch
File spiffy-request-vars-as-boolean.patch, 778 bytes (added by , 15 years ago) |
---|
-
spiffy-request-vars.scm
15 15 ;; A list of strings to be considered `#t' for request variables 16 16 ;; when `as-boolean' is used as converter. 17 17 (make-parameter 18 '("y" "yes" "1" "on" )))18 '("y" "yes" "1" "on" "true"))) 19 19 20 20 (define (req-vars/vals var vars/vals) 21 21 (and vars/vals … … 29 29 30 30 (define (as-boolean var vals) 31 31 (and-let* ((val (alist-ref var vals))) 32 (not (not (member val (true-boolean-values) string-ci=?))))) 32 (or (eqv? #t val) 33 (not (not (member val (true-boolean-values) string-ci=?)))))) 33 34 34 35 (define (as-list var vals) 35 36 (let ((vals (req-vars/vals var vals)))