[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
#1717: coops — slot-initialized?
From: |
Chicken Trac |
Subject: |
#1717: coops — slot-initialized? |
Date: |
Mon, 24 Aug 2020 15:23:16 -0000 |
#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.
- #1717: coops — slot-initialized?,
Chicken Trac <=