Changeset 15958 in project


Ignore:
Timestamp:
09/19/09 02:30:45 (10 years ago)
Author:
Kon Lovett
Message:

the default server already in own threade

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/remote-mailbox/trunk/tests/remote-mailbox-test.scm

    r15957 r15958  
    2222(define (server)
    2323  (print "* Server - Receiving messages until 'quit")
    24         (thread-start!
    25                 (lambda ()
    26                         (let loop ((msg (mailbox-receive! (local-mailbox 'foo "test: "))))
    27                                 (print "Received " msg)
    28                                 (if (eq? 'quit msg) (exit 0)
    29             (loop (mailbox-receive! (local-mailbox 'foo "test: "))) ) ) ))
     24        (let loop ((msg (mailbox-receive! (local-mailbox 'foo "test: "))))
     25    (print "Received " msg)
     26    (if (eq? 'quit msg) (exit 0)
     27        (loop (mailbox-receive! (local-mailbox 'foo "test: "))) ) )
    3028        (thread-join! (local-mailbox 'default-remote-mailbox-server-thread)) )
    3129
Note: See TracChangeset for help on using the changeset viewer.