Opened 5 years ago

Closed 5 years ago

#1717 closed defect (fixed)

coops — slot-initialized?

Reported by: Idiomdrottning Owned by:
Priority: major Milestone: someday
Component: unknown Version: 5.2.0
Keywords: coops Cc:
Estimated difficulty:

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

Change History (1)

comment:1 Changed 5 years ago by felix winkelmann

Resolution: → fixed
Status: new → closed

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.

Note: See TracTickets for help on using tickets.