1234567891011121314151617181920212223242526272829303132333435363738394041 |
- exec guile -q >/dev/null 2>&1 <<EOF
- (use-modules (oop goops))
- (define-module (oop goops))
- (define-class <c> () (a
- (define i (make <c>))
- (%fast-slot-ref i 1)
- (%fast-slot-ref i 0)
- (%fast-slot-ref i 3)
- (%fast-slot-ref i -1)
- (%fast-slot-ref i 2)
- (exit 0)
- EOF
|