swig/Examples/test-suite/schemerunme/overload_copy.scm
2004-06-07 05:03:39 +00:00

4 lines
54 B
Scheme

(define f (new-Foo))
(define g (new-Foo f))
(exit 0)