Changeset 38893 in project
- Timestamp:
- 08/28/20 17:49:45 (5 months ago)
- Location:
- release/5/coops
- Files:
-
- 6 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/5/coops/tags/1.3/coops-module.scm
r37653 r38893 11 11 (module coops (slot-value 12 12 slot-ref ; OBSOLETE 13 slot-exists? 13 14 slot-initialized? 14 15 <standard-class> -
release/5/coops/tags/1.3/coops.scm
r37857 r38893 155 155 (not (eq? (##sys#slot (coops-instance-slots obj) i) uninitialized)) 156 156 (error "slot not found" slotname obj)))) 157 158 (define (slot-exists? obj slotname) 159 (and (slot-lookup obj slotname 'slot-initialized?) #t)) 157 160 158 161 (define (class-of o) -
release/5/coops/tags/1.3/tests/run.scm
r35591 r38893 29 29 (test 89 (slot-value i1 'x)) 30 30 (test 100 (slot-value i2 'x)) 31 (test #t (slot-exists? i1 'x)) 32 (test #f (slot-exists? i1 'z)) 31 33 32 34 ;; undefined generic -
release/5/coops/trunk/coops-module.scm
r37653 r38893 11 11 (module coops (slot-value 12 12 slot-ref ; OBSOLETE 13 slot-exists? 13 14 slot-initialized? 14 15 <standard-class> -
release/5/coops/trunk/coops.scm
r37857 r38893 155 155 (not (eq? (##sys#slot (coops-instance-slots obj) i) uninitialized)) 156 156 (error "slot not found" slotname obj)))) 157 158 (define (slot-exists? obj slotname) 159 (and (slot-lookup obj slotname 'slot-initialized?) #t)) 157 160 158 161 (define (class-of o) -
release/5/coops/trunk/tests/run.scm
r35591 r38893 29 29 (test 89 (slot-value i1 'x)) 30 30 (test 100 (slot-value i2 'x)) 31 (test #t (slot-exists? i1 'x)) 32 (test #f (slot-exists? i1 'z)) 31 33 32 34 ;; undefined generic
Note: See TracChangeset
for help on using the changeset viewer.