Fixing stklos
This commit is contained in:
parent
12d3ed5c3d
commit
c599e44790
|
|
@ -107,7 +107,7 @@
|
||||||
(display "HERE c-null?: ")
|
(display "HERE c-null?: ")
|
||||||
(write pointer)
|
(write pointer)
|
||||||
(newline)
|
(newline)
|
||||||
(and (pointer? c-bytevector?)
|
(and (c-bytevector? c-bytevector?)
|
||||||
(cpointer-null? pointer)))))
|
(cpointer-null? pointer)))))
|
||||||
(else (define c-null?
|
(else (define c-null?
|
||||||
(lambda (pointer)
|
(lambda (pointer)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue