#1717: coops — slot-initialized?

[Chicken Trac]

#1717: coops — slot-initialized?
---------------------------------------+---------------------
            Reporter:  Idiomdrottning  |       Type:  defect
              Status:  new             |   Priority:  major
           Milestone:  someday         |  Component:  unknown
             Version:  5.2.0           |   Keywords:  coops
Estimated difficulty:                  |
---------------------------------------+---------------------
 Please change the last line of slot-initialized? to match
 {{{
 (define (slot-initialized? obj slotname)
   (let ((i (slot-lookup obj slotname 'slot-initialized?)))
     (if i
         (not (eq? (##sys#slot (coops-instance-slots obj) i)
 uninitialized))
         #f)))
 }}}

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1717>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.