diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 60c68a2..c6c3d1e 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -106,10 +106,10 @@
   (gauche (define c-null? pointer-null?))
   (stklos (define c-null?
             (lambda (pointer)
-              (cond ;((void? pointer) #t)
+              (cond ((void? pointer) #t)
                     ((and (c-bytevector? pointer)
-                          (= (c-memset-pointer->address pointer 0 0) 0)) #t
-                     (else #f))))))
+                          (= (c-memset-pointer->address pointer 0 0) 0)) #t)
+                    (else #f)))))
   (else (define c-null?
           (lambda (pointer)
             (if (c-bytevector? pointer)