Sign in
fuchsia
/
third_party
/
swig
/
2824b0cbb66e715490e1ef13250bd675d87b32d9
/
.
/
trunk
/
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
)