Changeset 37908 in project


Ignore:
Timestamp:
09/25/19 17:33:51 (3 weeks ago)
Author:
felix winkelmann
Message:

tcp-server 1.3 (C4): keep thread-count correctly (thanks to Henry Hu)

Location:
release/4/tcp-server
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/tcp-server/tags/1.3/tcp-server.scm

    r19969 r37908  
    6969    (define (thread-fork thunk)
    7070      (set! current-number-of-threads (add1 current-number-of-threads))
    71       (thread-start! (make-thread thunk))
    72       (set! current-number-of-threads (sub1 current-number-of-threads)) )
     71      (thread-start!
     72        (make-thread
     73          (lambda ()
     74            (thunk)
     75            (set! current-number-of-threads
     76              (sub1 current-number-of-threads)) ))))
    7377    (define (dispatch-request in out)
    7478      (handle-exceptions ex
  • release/4/tcp-server/tags/1.3/tcp-server.setup

    r19969 r37908  
    88          "tcp-server.o"
    99          "tcp-server.import.so")
    10         `((version 1.2)
     10        `((version 1.3)
    1111          (documentation "tcp-server.html") ) )
  • release/4/tcp-server/trunk/tcp-server.scm

    r19969 r37908  
    6969    (define (thread-fork thunk)
    7070      (set! current-number-of-threads (add1 current-number-of-threads))
    71       (thread-start! (make-thread thunk))
    72       (set! current-number-of-threads (sub1 current-number-of-threads)) )
     71      (thread-start!
     72        (make-thread
     73          (lambda ()
     74            (thunk)
     75            (set! current-number-of-threads
     76              (sub1 current-number-of-threads)) ))))
    7377    (define (dispatch-request in out)
    7478      (handle-exceptions ex
  • release/4/tcp-server/trunk/tcp-server.setup

    r19969 r37908  
    88          "tcp-server.o"
    99          "tcp-server.import.so")
    10         `((version 1.2)
     10        `((version 1.3)
    1111          (documentation "tcp-server.html") ) )
Note: See TracChangeset for help on using the changeset viewer.