19 lines
316 B
Scheme
19 lines
316 B
Scheme
(require-extension single)
|
|
(require-extension multi)
|
|
|
|
(define f (make <Foo>))
|
|
(slot-set! f 'a 3)
|
|
(print (slot-ref f 'a))
|
|
|
|
(define b (make <Bar>))
|
|
(slot-set! b 'b 2)
|
|
(print (slot-ref b 'b))
|
|
|
|
(define b2 (make <Bar2>))
|
|
(slot-set! b2 'b 4)
|
|
(slot-set! b2 'c 6)
|
|
(print (slot-ref b2 'b))
|
|
(print (slot-ref b2 'c))
|
|
|
|
(exit 0)
|