7e55b36764
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7143 626c5289-ae23-0410-ae9c-e8d60b6d4f22
18 lines
316 B
Scheme
18 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)
|