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