Sign in
android
/
platform
/
external
/
swig
/
7aafe3d8b2c8b138c431d5fcc98a4d2a7c3270f9
/
.
/
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
)