Changeset 15987 in project


Ignore:
Timestamp:
09/20/09 10:29:37 (10 years ago)
Author:
Christian Kellermann
Message:

check if we get at least a thread object before caring into the specific structure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/mailbox-threads/trunk/mailbox-threads.scm

    r15943 r15987  
    3434
    3535(define (thread? t)
     36  (if (thread:thread? t)
    3637   (let ((specific (thread:thread-specific t)))
    3738      (cond ((list? specific)
    3839                (eq? (car (thread:thread-specific t)) *tag*))
    39             (else #f))))
     40            (else #f)))
     41  #f))
    4042
    4143(define (current-thread)
Note: See TracChangeset for help on using the changeset viewer.