diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index 92434e6..2bb1c98 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -76,6 +76,8 @@ (define c-utf8->string (lambda (c-bytevector) + (display c-bytevector) + (newline) (when (c-null? c-bytevector) (error "Can not turn null pointer into string" c-bytevector)) (let ((size (c-strlen c-bytevector)))