[Chicken-janitors] #304: coops#subclass? can process abort

[Chicken Trac]

#304: coops#subclass? can process abort
---------------------+------------------------------------------------------
 Reporter:  kon      |       Owner:       
     Type:  defect   |      Status:  new  
 Priority:  major    |   Milestone:  4.6.0
Component:  unknown  |     Version:  4.5.x
 Keywords:           |  
---------------------+------------------------------------------------------
 (use coops)
 (subclass? 'not-a-class! <standard-class>) ;=> Bus error (MacOS 10.5)

 The `c1' argument is interpreted as a class w/o determining the safety.

 Maybe:
 ((memq c2 (slot-value c1 'class-precedence-list)) #t)
   =>
 ((and (coops-instance? c1) (memq c2 (slot-value c1 'class-precedence-
 list))) #t)

-- 
Ticket URL: <http://www.irp.oist.jp/trac/chicken/ticket/304>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.