Changeset 38893 in project

Timestamp:

08/28/20 17:49:45 (4 weeks ago)

Author:

felix winkelmann

Message:

coops 1.3: added slot-exists?

Location:

release/5/coops

Files:

• tags/1.3 (copied) (copied from release/5/coops/trunk)
• tags/1.3/coops-module.scm (modified) (1 diff)
• tags/1.3/coops.scm (modified) (1 diff)
• tags/1.3/tests/run.scm (modified) (1 diff)
• trunk/coops-module.scm (modified) (1 diff)
• trunk/coops.scm (modified) (1 diff)
• trunk/tests/run.scm (modified) (1 diff)

release/5/coops/tags/1.3/coops-module.scm

@@ -11 +11 @@
 (module coops (slot-value
                slot-ref                 ; OBSOLETE
+               slot-exists?
                slot-initialized?
                <standard-class>

release/5/coops/tags/1.3/coops.scm

@@ -155 +155 @@
         (not (eq? (##sys#slot (coops-instance-slots obj) i) uninitialized))
         (error "slot not found" slotname obj))))
+
+(define (slot-exists? obj slotname)
+  (and (slot-lookup obj slotname 'slot-initialized?) #t))
 
 (define (class-of o)

release/5/coops/tags/1.3/tests/run.scm

@@ -29 +29 @@
 (test 89 (slot-value i1 'x))
 (test 100 (slot-value i2 'x))
+(test #t (slot-exists? i1 'x))
+(test #f (slot-exists? i1 'z))
 
 ;; undefined generic

release/5/coops/trunk/coops-module.scm

@@ -11 +11 @@
 (module coops (slot-value
                slot-ref                 ; OBSOLETE
+               slot-exists?
                slot-initialized?
                <standard-class>

release/5/coops/trunk/coops.scm

@@ -155 +155 @@
         (not (eq? (##sys#slot (coops-instance-slots obj) i) uninitialized))
         (error "slot not found" slotname obj))))
+
+(define (slot-exists? obj slotname)
+  (and (slot-lookup obj slotname 'slot-initialized?) #t))
 
 (define (class-of o)

release/5/coops/trunk/tests/run.scm

@@ -29 +29 @@
 (test 89 (slot-value i1 'x))
 (test 100 (slot-value i2 'x))
+(test #t (slot-exists? i1 'x))
+(test #f (slot-exists? i1 'z))
 
 ;; undefined generic