Fixing for foreign-c-requests

2025-07-24 19:15:59 +03:00
parent 4edb59ca52
commit 286d530592
2 changed files with 4 additions and 2 deletions
@@ -76,6 +76,8 @@

 (define c-utf8->string
  (lambda (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)))))