Sign in
fuchsia
/
third_party
/
swig
/
3f3073547804f2e112085429ddfb691beba5a2ba
/
.
/
Examples
/
test-suite
/
schemerunme
/
typename.scm
blob: 1e897ddc6f0c71022d80dc3d13ec756fedb97456 [
file
] [
log
] [
blame
]
(
define
f
(
new-Foo
))
(
define
b
(
new-Bar
))
(
define
x
(
twoFoo f
))
;;(if (not (isinstance x (types-FloatType)))
;; (error "wrong return type"))
(
define
y
(
twoBar b
))
;;(if (not (isinstance y (types-IntType)))
;; (error "wrong return type"))
(
exit
0
)