diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index ed82702..f9c490f 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -76,7 +76,7 @@ (define c-utf8->string (lambda (c-bytevector) - (when (c-null? c-bytevector) + #;(when (c-null? c-bytevector) (error "Can not turn null pointer into string")) (let ((size (c-strlen c-bytevector))) (utf8->string (c-bytevector->bytevector c-bytevector size)))))