Sign in
fuchsia
/
third_party
/
swig
/
8a73e25fe2a1bd1bbffb052d47891238287aea7d
/
.
/
Examples
/
test-suite
/
schemerunme
/
overload_extend_c.scm
blob: 0b03b285aef510ba881224658274f0c9bb20cf6a [
file
] [
log
] [
blame
]
(
define
f
(
new-Foo
))
(
if
(
not
(
=
(
Foo-test f
3
)
1
))
(
error
"test integer bad"
))
(
if
(
not
(
=
(
Foo-test f
"hello"
)
2
))
(
error
"test string bad"
))
(
if
(
not
(
=
(
Foo-test f
3.5
2.5
)
6.0
))
(
error
"test reals bad"
))
(
exit
0
)