From 922eab6ea108b024cb67d7e5a9f8d6efb99c85b6 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 5 Aug 2025 07:44:00 +0300 Subject: [PATCH] Fixing stklos --- foreign/c/c-bytevectors.scm | 4 ---- foreign/c/primitives/stklos.scm | 3 ++- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/foreign/c/c-bytevectors.scm b/foreign/c/c-bytevectors.scm index 31f380e..06fe660 100644 --- a/foreign/c/c-bytevectors.scm +++ b/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)) diff --git a/foreign/c/primitives/stklos.scm b/foreign/c/primitives/stklos.scm index deb24a7..2d244d1 100644 --- a/foreign/c/primitives/stklos.scm +++ b/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 ()