tests/012/oop-prelude.tl


1
2
3
4
5
6
7
8
9
10
11
12
13

(load "../common")

(define-struct-prelude init-fini-log (fox bear)
  (:init (me) (put-line `@me created`))
  (:fini (me) (put-line `@me finalized`)))

(defstruct fox ())

(defstruct bear ())

(with-objects ((f (new fox))
               (b (new bear)))
  (put-line "inside with-object"))