Changeset 11663 in project


Ignore:
Timestamp:
08/17/08 11:13:38 (13 years ago)
Author:
elf
Message:

test for compiled code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/remote-repl/trunk/remote-repl-server.scm

    r11659 r11663  
    109109            rrepl-server-start
    110110            rrepl-server-close
     111            sleep
    111112            )
    112113        (emit-exports "remote-repl-server.exports")
     
    134135;; posix sleep(2) procedure
    135136(define rrepl-server-sleep    sleep)
    136 
     137(define sleep thread-sleep!)
    137138
    138139
     
    420421        (rrepl-server:listen-thr! s t)
    421422        (thread-quantum-set! t 1000)
    422         (set! rrepl-server-count (fx+ 1 rrepl-server-count))
    423         (and (fx= 1 rrepl-server-count)
    424              (set! sleep thread-sleep!))
     423    ;    (set! rrepl-server-count (fx+ 1 rrepl-server-count))
     424    ;    (and (fx= 1 rrepl-server-count)
     425    ;         (set! sleep thread-sleep!))
    425426        (thread-start! t)
    426427        s))
     
    436437            (thread-join! (rrepl-session:thread x)))
    437438        (rrepl-server:remotes serv))
    438     (set! rrepl-server-count (fx- rrepl-server-count 1))
    439     (and (fx= 0 rrepl-server-count)
    440          (set! sleep rrepl-server-sleep))
     439  ;  (set! rrepl-server-count (fx- rrepl-server-count 1))
     440  ;  (and (fx= 0 rrepl-server-count)
     441  ;       (set! sleep rrepl-server-sleep))
    441442    #t)
    442443
Note: See TracChangeset for help on using the changeset viewer.