Sign in
fuchsia
/
third_party
/
swig
/
6b3e7ee850fe66132b3a6a5a1aebaa6b59480661
/
.
/
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
)