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:39:48 +03:00
parent 74c1f36b50
commit 939b2951a8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
foreign/c/pointer.scm
View File

@ -77,10 +77,11 @@
(define-syntax c-utf8->string (define-syntax c-utf8->string
(syntax-rules () (syntax-rules ()
((_ c-bytevector) ((_ c-bytevector)
(when (c-null? c-bytevector) (begin
(error "Can not turn null pointer into string" 'c-bytevector)) (when (c-null? c-bytevector)
(let ((size (c-strlen c-bytevector))) (error "Can not turn null pointer into string" 'c-bytevector))
(utf8->string (c-bytevector->bytevector c-bytevector size)))))) (let ((size (c-strlen c-bytevector)))
(utf8->string (c-bytevector->bytevector c-bytevector size)))))))
(define string->c-utf8 (define string->c-utf8
(lambda (string-var) (lambda (string-var)