Ignore:
Timestamp:
08/30/20 19:07:27 (9 months ago)
Author:
Kon Lovett
Message:

add -strict-types, type is interface

File:
1 edited

Legend:

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

    r38686 r38939  
    4646(import (only thread-utils check-thread print-exception-warning))
    4747(import (only type-checks check-positive-number check-natural-fixnum))
     48
     49;;
     50
     51(: zombie-threads (-> list))
     52(: thread-reaper-shutdown? (-> boolean))
     53(: thread-reap! (thread -> void))
     54(: thread-reaper-stop! (-> void))
     55(: thread-reaper-greedy (-> boolean))
     56(: thread-reaper-greedy-set! (boolean -> void))
     57(: thread-reaper-quantum (-> fixnum))
     58(: thread-reaper-quantum-set! (fixnum -> void))
     59(: thread-reaper-wait-seconds (-> number))
     60(: thread-reaper-wait-seconds-set! (number -> void))
     61(: thread-reaper-timeout (-> number))
     62(: thread-reaper-timeout-set! (number -> void))
     63(: thread-reaper-retries (-> fixnum))
     64(: thread-reaper-retries-set! (fixnum -> void))
    4865
    4966;;
     
    223240(define thread-reaper-greedy
    224241  (getter-with-setter
    225     (lambda args
    226       (if (null? args) *greedy?*
    227         (begin
    228           (warning 'thread-reaper-greedy "mutation deprecated")
    229           (thread-reaper-greedy-set! (car args)) ) ) )
     242    (lambda args *greedy?*)
    230243     thread-reaper-greedy-set!))
    231244
     
    238251    (lambda args
    239252      (unless *reaper-thread* (error 'thread-reaper-quantum "reaper is not running"))
    240       (if (null? args) (thread-quantum *reaper-thread*)
    241         (begin
    242           (warning 'thread-reaper-quantum "mutation deprecated")
    243           (thread-reaper-quantum-set! (car args)) ) ) )
     253      (thread-quantum *reaper-thread*))
    244254    thread-reaper-quantum-set!))
    245255
     
    249259(define thread-reaper-wait-seconds
    250260  (getter-with-setter
    251     (lambda args
    252       (if (null? args) *wait-seconds*
    253         (begin
    254           (warning 'thread-reaper-wait-seconds "mutation deprecated")
    255           (thread-reaper-wait-seconds-set! (car args)) ) ) )
     261    (lambda args *wait-seconds*)
    256262    thread-reaper-wait-seconds-set!))
    257263
     
    261267(define thread-reaper-timeout
    262268  (getter-with-setter
    263     (lambda args
    264       (if (null? args) *timeout*
    265         (begin
    266           (warning 'thread-timeout "mutation deprecated")
    267           (thread-reaper-timeout-set! (car args)) ) ) )
     269    (lambda args *timeout*)
    268270    thread-reaper-timeout-set!))
    269271
     
    273275(define thread-reaper-retries
    274276  (getter-with-setter
    275     (lambda args
    276       (if (null? args) *retries*
    277         (begin
    278           (warning 'thread-reaper-retries "mutation deprecated")
    279           (thread-reaper-retries-set! (car args)) ) ) )
     277    (lambda args *retries*)
    280278    thread-reaper-retries-set!))
    281279
Note: See TracChangeset for help on using the changeset viewer.