Ignore:
Timestamp:
05/09/10 20:08:22 (10 years ago)
Author:
Mario Domenech Goulart
Message:

spiffy-request-vars (trunk): whitespace-cleanup and version bump

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy-request-vars/trunk/spiffy-request-vars.scm

    r17991 r18018  
    4141  (and-let* ((val (alist-ref var vals)))
    4242    (string->number val)))
    43  
     43
    4444(define (request-vars #!key (source 'both) max-content-length)
    45    
     45
    4646  (let* ((content-matters? (not (memq (request-method (current-request)) '(GET HEAD))))
    4747         (get-vars (and (memq source '(both query-string))
     
    7979    ((_ $ () form . forms)
    8080     (begin form . forms))
    81    
     81
    8282    ((_ $ ((var converter) . more-bindings) forms ...)
    8383     (let* ((var ($ (quote var) converter)))
    8484       (with-request-vars* $ more-bindings forms ...)))
    85    
     85
    8686    ((_ $ (var . more-bindings) forms ...)
    8787      (let* ((var ($ (quote var))))
Note: See TracChangeset for help on using the changeset viewer.