[Chicken-janitors] #460: coops: anonymous classes can't be used as metaclasses

[Chicken Trac]

#460: coops: anonymous classes can't be used as metaclasses
-----------------------------------------+----------------------------------
 Reporter:  syn                          |       Owner:  felix
     Type:  defect                       |      Status:  new  
 Priority:  minor                        |   Milestone:  4.7.0
Component:  extensions                   |     Version:  4.6.x
 Keywords:  coops anonymous metaclasses  |  
-----------------------------------------+----------------------------------
 This program reproduces the issue:

 {{{

 (use coops)

 (define-class <foo> ()
   ()
   metaclass: (make-class (<standard-class>)
                          ((bar 1))))

 (print (slot-value <foo> 'bar))

 }}}

 It results in this error:

 {{{

 Error: (slot-value) slot not found
 bar
 #<coops standard-class `<foo>'>

 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/460>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.