Fixing stklos

2025-08-05 08:21:00 +03:00
parent 4c08809dcd
commit fdf69cedf8
1 changed files with 3 additions and 3 deletions
@@ -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)