Summary

coops — slot-initialized?

Metadata

• Id: 12ad916c1e247bc29073c51a969817ac3f60eb4b
• Trac id: 1717
• Type: defect
• Reporter: Idiomdrottning
• Owner:
• Cc:
• Status: closed
• Component: unknown
• Estimated difficulty:
• Resolution: fixed
• Priority: major
• Milestone: someday
• Version: 5.2.0
• Changetime: 2020-08-28 18:00:43 UTC
• Created: 2020-08-24 17:23:16 UTC
• Keywords: coops

Description

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)))

Changes and comments

[2020-08-28 18:00:43 UTC] felix changed status from new to closed

[2020-08-28 18:00:43 UTC] felix set resolution to fixed

[2020-08-28 18:00:43 UTC] felix wrote:

I added a `slot-exists?` primitive that returns #t/#f, `slot-initialized?` keeps it's current behaviour, as it is not really a predicate for slot-existence.