Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improving error messages

This commit is contained in:
retropikzel 2025-07-25 11:38:14 +03:00
parent cbb493bc52
commit 74c1f36b50
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
foreign/c/pointer.scm
View File

@ -74,12 +74,13 @@
(lambda (bytevector-var)
(c-strlen bytevector-var)))
(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)))))
(define-syntax c-utf8->string
(syntax-rules ()
((_ c-bytevector)
(when (c-null? c-bytevector)
(error "Can not turn null pointer into string" 'c-bytevector))
(let ((size (c-strlen c-bytevector)))
(utf8->string (c-bytevector->bytevector c-bytevector size))))))
(define string->c-utf8
(lambda (string-var)