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:23:58 +03:00
parent 272d9eadea
commit 62dd4ce93d
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
foreign/c/pointer.scm
View File

@ -100,19 +100,7 @@
(chicken #t) ; FIXME (chicken #t) ; FIXME
(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?
(lambda (pointer)
(display "HERE5: ")
(display pointer)
(newline)
(display (if (c-bytevector? pointer)
(pointer-null? pointer)
#f))
(newline)
(if (c-bytevector? pointer)
(pointer-null? pointer)
#f))))
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)
(display "HERE123: ") (display "HERE123: ")