Gauche fixes
This commit is contained in:
@@ -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)))))
|
||||
|
||||
Reference in New Issue
Block a user