newobject1_runme_proxy.ss

/tags/rel-1-3-25/SWIG/Examples/test-suite/chicken/newobject1_runme_proxy.ss

#
Scheme | 30 lines | 17 code | 13 blank | 0 comment | 1 complexity | 408c7b983d603183ce80c9b927ad4dd3 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0

 1(require 'newobject1)
 2
 3(define-macro (check-count val)
 4  `(if (not (= (Foo-fooCount) ,val)) (error "Error checking val " ,val " != " ,(Foo-fooCount))))
 5
 6(define f (Foo-makeFoo))
 7
 8(check-count 1)
 9
10(define f2 (makeMore f))
11
12(check-count 2)
13
14(set! f #f)
15(gc #t)
16
17(check-count 1)
18
19(define f3 (makeMore f2))
20
21(check-count 2)
22
23(set! f3 #f)
24(set! f2 #f)
25
26(gc #t)
27
28(check-count 0)
29
30(exit 0)