(import scheme)
(import (chicken base))
(import (chicken foreign))

#>
void test(int *output) {
    *output = 42;
}
<#

(define-foreign-type pointer nonnull-c-pointer)
;; Error: illegal foreign argument type `(pointer int)'
;; (define test (foreign-lambda void "test" (pointer int)))
(define test (foreign-lambda void "test" (nonnull-c-pointer int)))

(let-location ((output int))
  (test (location output))
  (print output))