Fixing Racket uint8-ref/set!

foreign/c.sld

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

foreign/c/c-bytevectors.scm

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