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

Fixing Racket uint8-ref/set!

This commit is contained in:
retropikzel 2025-07-23 19:44:29 +03:00
parent 5d151956d5
commit a8264b23b5
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c.sld
View File

@ -59,8 +59,8 @@
(scheme process-context) (scheme process-context)
(system foreign) (system foreign)
(system foreign-library) (system foreign-library)
(only (guile) include-from-path) ;(only (guile) include-from-path)
(only (rnrs bytevectors) #;(only (rnrs bytevectors)
bytevector-int8-set! bytevector-int8-set!
bytevector-uint-ref))) bytevector-uint-ref)))
(kawa (kawa

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

@ -455,6 +455,7 @@
(define (native-endianness) (define (native-endianness)
(cond-expand (little-endian 'little) (cond-expand (little-endian 'little)
(racket 'little) ;; FIXME
(else 'big))) (else 'big)))
;;; Already defined by (scheme base): ;;; Already defined by (scheme base):