Returns #t if obj is a thread, otherwise returns #f.
(thread? (current-thread)) ==> #t (thread? 'foo) ==> #f