alice@bellona:/tmp/ffitest % cat src/ffitest.scm (module ffitest () (import scheme) (import chicken.base) (import chicken.type) (import chicken.string) (import chicken.format) (import chicken.foreign) (import chicken.memory) (define passback (foreign-lambda* c-string ((c-string s)) #<pointer s)) (define s^ (passback s)) (printf "s^: ~S ~S\n" s^ (object->pointer s^)) (exit 0)) (main) ) alice@bellona:/tmp/ffitest % pontiff build && pontiff run checking dependencies building ffitest * preparing modules... done * checking module graph... done * determining build order... done compiling 1/1 modules (dynamic) * csc done * cc done * ld done compilation finished ffitest build finished all builds complete running ffitest... s: "alice" # s^: "blice" #