Fixing stklos

foreign/c/c-bytevectors.scm

@@ -458,10 +458,6 @@
                (racket (if (system-big-endian?) 'big 'little))
                (else 'big)))
 
-;;; Already defined by (scheme base):
-;;;
-;;;     c-bytevector? make-c-bytevector c-bytevector-length
-
 (define (c-bytevector=? bv1 bv2)
   (if (and (c-bytevector? bv1)
            (c-bytevector? bv2))

foreign/c/primitives/stklos.scm

@@ -25,7 +25,8 @@
 
 (define c-bytevector?
   (lambda (object)
-    (cpointer? object)))
+    (and (not (void? object))
+         (cpointer? object))))
 
 (define-syntax define-c-procedure
   (syntax-rules ()