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:20:30 +03:00
parent 1e1f8479db
commit 4c08809dcd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c/pointer.scm
View File

@ -78,7 +78,7 @@
(lambda (c-bytevector) (lambda (c-bytevector)
(display c-bytevector) (display c-bytevector)
(newline) (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)))
(utf8->string (c-bytevector->bytevector c-bytevector size))))) (utf8->string (c-bytevector->bytevector c-bytevector size)))))
@ -106,7 +106,7 @@
(gauche (define c-null? pointer-null?)) (gauche (define c-null? pointer-null?))
(stklos (define c-null? (stklos (define c-null?
(lambda (pointer) (lambda (pointer)
(cond ((void? pointer) #t) (cond ;((void? pointer) #t)
((and (c-bytevector? pointer) ((and (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0)) #t (= (c-memset-pointer->address pointer 0 0) 0)) #t
(else #f)))))) (else #f))))))