get string part from buffer passed to C

(define len (foreign_value SOME_MAX_STRING_LENGTH int))

(let ((str (make-string len)))
  ((foreign-lambda int get_string_from_c_library scheme-pointer unsigned-int) str len)
  (substring str 0 (string-index str #\\x00)))