trunk/Examples/test-suite/schemerunme/pointer_in_out.scm


1
2
3
4
5
6
7
8
9
10
11
12
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)