Fixing stklos
This commit is contained in:
parent
5556e782d5
commit
f49da5bd7f
|
|
@ -105,7 +105,7 @@
|
||||||
(stklos (define c-null?
|
(stklos (define c-null?
|
||||||
(lambda (pointer)
|
(lambda (pointer)
|
||||||
(and pointer
|
(and pointer
|
||||||
cpointer-null?))))
|
(cpointer-null? pointer)))))
|
||||||
(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