Ticket #719: request-vars-getter-with-no-arguments.diff

File request-vars-getter-with-no-arguments.diff, 1.2 KB (added by Moritz Heidkamp, 10 years ago)
  • spiffy-request-vars.scm

     
    121121                 ((query-string) query-string-vars)
    122122                 (else (error 'request-vars (conc "Unkown source: " source))))))
    123123
    124     (lambda (var #!optional default/converter)
    125       (let* ((var (if (string? var)
    126                       (string->symbol var)
    127                       var)))
    128         (if (procedure? default/converter)
    129             (default/converter var vals)
    130             (let ((vals (req-vars/vals var vals)))
    131               (if (null? vals)
    132                   default/converter
    133                   (car vals))))))))
     124    (lambda (#!optional var default/converter)
     125      (if var
     126          (let* ((var (if (string? var)
     127                          (string->symbol var)
     128                          var)))
     129            (if (procedure? default/converter)
     130                (default/converter var vals)
     131                (let ((vals (req-vars/vals var vals)))
     132                  (if (null? vals)
     133                      default/converter
     134                      (car vals)))))
     135          vals))))
    134136
    135137(define-syntax with-request-vars*
    136138  (syntax-rules ()