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

Fixing stklos

This commit is contained in:
retropikzel 2025-08-05 08:06:36 +03:00
parent 654f8c6e51
commit ececb7906a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
foreign/c/pointer.scm
View File

@ -76,6 +76,8 @@
(define c-utf8->string (define c-utf8->string
(lambda (c-bytevector) (lambda (c-bytevector)
(display c-bytevector)
(newline)
(when (c-null? c-bytevector) (when (c-null? c-bytevector)
(error "Can not turn null pointer into string" c-bytevector)) (error "Can not turn null pointer into string" c-bytevector))
(let ((size (c-strlen c-bytevector))) (let ((size (c-strlen c-bytevector)))