Sign in
fuchsia
/
third_party
/
swig
/
refs/tags/v2.0.11
/
.
/
Examples
/
test-suite
/
schemerunme
/
pointer_in_out.scm
blob: cabf6c1954fbb906e4563a4e486f1796b3fbcbb8 [
file
] [
log
] [
blame
]
(
define
-macro
(
check form
)
`
(
if
(
not
,
form
)
(
error
"Check failed: "
'
,
form
)))
(
define
p
(
produce-int-pointer
47
11
))
(
check
(
=
(
consume-int-pointer p
)
47
))
(
define
q
(
frobnicate-int-pointer p
))
(
check
(
=
(
consume-int-pointer q
)
11
))
(
exit
0
)