Changeset 4059 in project


Ignore:
Timestamp:
05/06/07 10:48:39 (13 years ago)
Author:
sjamaan
Message:

Add build-error-message to the export list

File:
1 edited

Legend:

Unmodified
Added
Removed
  • spiffy/spiffy-base.scm

    r4017 r4059  
    4646          spiffy-read-block-size spiffy-accept-incoming-host current-response-code
    4747          current-response-headers spiffy-user-name spiffy-log-file
    48           spiffy-config-file current-urlencoded-arguments
     48          spiffy-config-file current-urlencoded-arguments build-error-message
    4949          spiffy-register-config current-workdir spiffy-file-ext-handlers add-file-ext-handlers!) )
    5050
     
    158158  (load-config))
    159159
     160(define (sigint-handler sig)
     161  (stop-server))
     162
    160163(unless (eq? (build-platform) 'msvc)
    161164  (set-signal-handler! signal/hup sighup-handler)
    162   (set-signal-handler! signal/int (lambda _ (exit 1))))
     165  (set-signal-handler! signal/int sigint-handler))
    163166
    164167;;; Redirection:
     
    585588                (alist-update! (car item) (cdr item) list string=?))
    586589              spiffy-file-ext-handlers alist)))
     590
     591(define stop-server void)
    587592
    588593;;; Main procedure:
Note: See TracChangeset for help on using the changeset viewer.