Changeset 8442 in project


Ignore:
Timestamp:
02/13/08 09:18:39 (12 years ago)
Author:
elf
Message:

minor oops on format directive - ~S not ~A

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/http/trunk/http-server.scm

    r8440 r8442  
    384384
    385385(define (get/post-handler req)
    386   (dribble "raw request value: ~A" req)
     386  (dribble "raw request value: ~S" req)
    387387  (let-values (((loc get-args) (http:decode-url (http:request-url req))))
    388388    (let ([args (append
     
    393393                 get-args)]
    394394          [h (http:find-resource loc)])
    395       (dribble "request handling:  args = ~A  resource = ~A" args h)
     395      (dribble "request handling:  args = ~S  resource = ~S" args h)
    396396      (if h
    397397          (handle-exceptions ex
Note: See TracChangeset for help on using the changeset viewer.