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

Fixing Mosh

This commit is contained in:
retropikzel 2025-07-26 09:12:58 +03:00
parent 783c7f2a2f
commit 22620e07ee
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

@ -101,7 +101,7 @@
(kawa #t) ; FIXME (kawa #t) ; FIXME
(chibi #t) (chibi #t)
(gauche (define c-null? pointer-null?)) (gauche (define c-null? pointer-null?))
(mosh (define c-null? #;(mosh (define c-null?
(lambda (pointer) (and (c-bytevector? pointer) (lambda (pointer) (and (c-bytevector? pointer)
(= (pointer->integer pointer) 0))))) (= (pointer->integer pointer) 0)))))
(else (define c-null? (else (define c-null?
@ -110,7 +110,7 @@
(write pointer) (write pointer)
(newline) (newline)
(if (c-bytevector? pointer) (if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0) #t ;(= (c-memset-pointer->address pointer 0 0) 0)
#f))))) #f)))))
#;(define c-bytevector->address #;(define c-bytevector->address