18 lines
347 B
Scheme
18 lines
347 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel r7rs-pffi version main))
|
|
|
|
(define original "Hello world")
|
|
|
|
(define p (pffi-string->pointer original))
|
|
(write p)
|
|
(newline)
|
|
|
|
(define s (pffi-pointer->string p))
|
|
(if (not (string=? original s))
|
|
(error (string-append "string from pointer is not " original) s))
|
|
(write s)
|
|
(newline)
|
|
|
|
|