diff options
Diffstat (limited to 'Examples/test-suite/schemerunme/pointer_in_out.scm')
| -rw-r--r-- | Examples/test-suite/schemerunme/pointer_in_out.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/pointer_in_out.scm b/Examples/test-suite/schemerunme/pointer_in_out.scm new file mode 100644 index 0000000..cabf6c1 --- /dev/null +++ b/Examples/test-suite/schemerunme/pointer_in_out.scm @@ -0,0 +1,13 @@ +(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) |