#lang scheme

(require (planet synx/pointer-address))

(require scheme/foreign)
(unsafe!)

(define obj (get-ffi-obj "bad_pointer" (ffi-lib "./bad-pointer.so") (_fun -> _pointer)))

(let ([ptr (obj)])
  (display "Got a pointer. Let's see what its address is.\n")
  (display (format "~s~n" (get-pointer-address ptr)))
  (display "Now let's see ptr-ref crash and burn.\n")
  (display (format "~s~n" (ptr-ref ptr _int))))