Fixing Mosh
This commit is contained in:
parent
c50c3b608f
commit
f03cf5376c
|
|
@ -102,7 +102,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? pointer-null?))
|
(mosh (define c-null? (lambda (pointer) (= (pointer->integer pointer) 0))))
|
||||||
(else (define c-null?
|
(else (define c-null?
|
||||||
(lambda (pointer)
|
(lambda (pointer)
|
||||||
(if (c-bytevector? pointer)
|
(if (c-bytevector? pointer)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue