Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing stklos

This commit is contained in:
retropikzel 2025-08-05 07:44:00 +03:00
parent 14c5960125
commit 922eab6ea1
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c/c-bytevectors.scm
View File

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

3
foreign/c/primitives/stklos.scm
View File

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