Changeset 15312 in project


Ignore:
Timestamp:
08/03/09 17:41:56 (10 years ago)
Author:
sjamaan
Message:

Fix connection timeout behaviour by simply disconnecting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r13600 r15312  
    354354(define (handle-incoming-request in out keep-going)
    355355  (handle-exceptions       ; This should probably be more fine-grained
    356    exn (fprintf out "Invalid request\r\n")
     356   exn (begin (close-input-port in)
     357              (close-output-port out))
    357358   (receive (req cont)
    358359     (call/cc (lambda (c) (values (read-request in) c)))
Note: See TracChangeset for help on using the changeset viewer.