ptr.scm

(import :std/foreign)

(export #t)

(begin-ffi (first-c
	    malloc-integer-list)

  (define-c-lambda first-c
    ((pointer (pointer int)))
    (pointer int)
    "___return (*___arg1);")

  (define-c-lambda malloc-integer-list
    () (pointer (pointer int))
    "int **a = (malloc(sizeof(int) * 4));
     *a = 12;
     ___return (a);"))

(define a (lambda () (first-c (malloc-integer-list))))

(define (main )
  (display (a)))