Changeset 32648 in project


Ignore:
Timestamp:
08/04/15 19:28:45 (5 years ago)
Author:
sjamaan
Message:

spiffy: Use "spiffy" as the name for threads created by spiffy, for easier debugging. Thanks to Evan Hanson for this patch.

File:
1 edited

Legend:

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

    r31682 r32648  
    574574  (tcp-addresses (if (ssl-port? p) (ssl-port->tcp-port p) p)))
    575575
     576(define-inline (spiffy-thread-start! thunk)
     577  (thread-start! (make-thread thunk (gensym 'spiffy))))
     578
    576579(define (accept-loop listener accept #!optional (addresses ssl-or-tcp-addresses))
    577580  (let ((thread-count (make-mutex/value 'thread-count 0))
     
    588591                        ((local remote) (addresses in)))
    589592            (mutex-update! thread-count add1)
    590             (thread-start!
     593            (spiffy-thread-start!
    591594             (lambda ()
    592595               (debug! "Incoming request from ~A" remote)
Note: See TracChangeset for help on using the changeset viewer.