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

Gauche fixes

This commit is contained in:
retropikzel 2025-07-25 11:35:42 +03:00
parent a814c80376
commit 191b318f7a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
foreign/c/pointer.scm
View File

@ -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)))))