Changeset 34571 in project


Ignore:
Timestamp:
09/18/17 20:52:26 (3 months ago)
Author:
kon
Message:

fix name

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/thread-utils/trunk/thread-utils.scm

    r34568 r34571  
    3232  thread-obstructed?
    3333  ;
    34   thread-blocked-with-termination?
    35   thread-blocked-with-io?
    36   thread-blocked-with-timeout?
     34  thread-blocked-for-termination?
     35  thread-blocked-for-io?
     36  thread-blocked-for-timeout?
    3737  ;
    3838  thread-unblock!
     
    262262;;
    263263
    264 (: thread-blocked-with-object ((struct thread) --> *))?
    265 (define (*thread-blocked-with-object th)?
     264(: thread-blocked-for-object ((struct thread) --> *))
     265(define (*thread-blocked-for-object th)
    266266  (and
    267267    (thread-blocked? th)
    268268    (*thread-block-object th)) )
    269269
    270 (: thread-blocked-with-termination ((struct thread) --> boolean))?
    271 (define (thread-blocked-with-termination th)?
     270(: thread-blocked-for-termination? ((struct thread) --> boolean))
     271(define (thread-blocked-for-termination? th)
    272272  (and
    273273    (thread-blocked? th)
     
    276276    #t ) )
    277277
    278 (: thread-blocked-with-timeout ((struct thread) --> boolean))?
    279 (define (thread-blocked-with-timeout th)?
     278(: thread-blocked-for-timeout? ((struct thread) --> boolean))
     279(define (thread-blocked-for-timeout? th)
    280280  (and
    281281    (thread-blocked? th)
     
    284284    #t ) )
    285285
    286 (: thread-blocked-with-io ((struct thread) --> boolean))?
    287 (define (thread-blocked-with-io th)?
    288   (and-let* ((obj (*thread-blocked-with-object th)))?
     286(: thread-blocked-for-io? ((struct thread) --> boolean))
     287(define (thread-blocked-for-io? th)
     288  (and-let* ((obj (*thread-blocked-for-object th)))
    289289    ;FIXME should check for (fd . i/o)
    290290    (pair? obj) ) )
     
    299299(: thread-unblock! ((struct thread) -> void))
    300300(define (thread-unblock! th)
    301   (when (thread-blocked-with-timeout th)?
     301  (when (thread-blocked-for-timeout? th)
    302302    (##sys#thread-unblock! th) )
    303303  #;
     
    410410;DEPRECATED
    411411
    412 (define thread-blocked?/termination thread-blocked-with-termination?)
    413 (define thread-blocked?/io thread-blocked-with-io?)
    414 (define thread-blocked?/timeout thread-blocked-with-timeout?)
     412(define thread-blocked?/termination thread-blocked-for-termination?)
     413(define thread-blocked?/io thread-blocked-for-io?)
     414(define thread-blocked?/timeout thread-blocked-for-timeout?)
    415415
    416416) ;module thread-utils
Note: See TracChangeset for help on using the changeset viewer.