Changeset 18018 in project


Ignore:
Timestamp:
05/09/10 20:08:22 (9 years ago)
Author:
mario
Message:

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

Location:
release/4/spiffy-request-vars/trunk
Files:
2 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))))
  • release/4/spiffy-request-vars/trunk/spiffy-request-vars.setup

    r17989 r18018  
    66  'spiffy-request-vars
    77  '("spiffy-request-vars.so" "spiffy-request-vars.import.so")
    8   `((version 0.5)))
     8  `((version 0.6)))
Note: See TracChangeset for help on using the changeset viewer.