make-c-struct and pointer->string

[David Pirotte]

Hello,

        guile 2.2.4.1-cdb19

,use (system foreign)

;; this fails

scheme@(guile-user)> (make-c-struct (list '* '*) (list (string->pointer "hello 
") (string->pointer "there!")))
$16 = #<pointer 0x55a3d54d54d0>
scheme@(guile-user)> (parse-c-struct $16 (list '* '*))
$17 = (#<pointer 0x55a3d5d12170> #<pointer 0x55a3d5d0a640>)
scheme@(guile-user)> (map pointer->string $17)
$18 = ("?g?գU" "`!?գU")

;; but this works

scheme@(guile-user)> (map pointer->string (parse-c-struct (make-c-struct (list 
'* '*) (list (string->pointer "hello ") (string->pointer "there!"))) (list '* 
'*)))
$19 = ("hello " "there!")


David

pgpsbxP1R0KUu.pgp
Description: OpenPGP digital signature