From 24a3700bd212bd43392a05e077c58064258d6387 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Fri, 10 Oct 2025 12:53:23 +0300
Subject: [PATCH] Gauche bugifxes

---
 Makefile                                  | 8 ++++----
 foreign/c/primitives/gauche/gauchelib.scm | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Makefile b/Makefile
index fc12ef6..58e018e 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
 .PHONY: package test libtest.o tests/libtest.so libtest.a documentation README.html
 SCHEME=chibi
 DOCKERIMG=${SCHEME}:head
-VERSION=0.10.7
+VERSION=0.10.8
 CC=gcc
 PKG=foreign-c-${VERSION}.tgz
 
@@ -28,9 +28,9 @@ install:
 	snow-chibi --impls=${SCHEME} ${SNOW_CHIBI_ARGS} install foreign-c-${VERSION}.tgz; \
 	if [ "${SCHEME}" = "gauche" ]; then \
 		make gauche; \
-		cp foreign/c/primitives/gauche.scm $(shell gauche-config --sitelibdir)/foreign/c/primitives/;\
-		mkdir -p $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
-		cp -r foreign/c/lib/gauche.so $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
+		sudo cp foreign/c/primitives/gauche.scm $(shell gauche-config --sitelibdir)/foreign/c/primitives/;\
+		sudo mkdir -p $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
+		sudo cp -r foreign/c/lib/gauche.so $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
 	fi
 
 uninstall:
diff --git a/foreign/c/primitives/gauche/gauchelib.scm b/foreign/c/primitives/gauche/gauchelib.scm
index 2bec142..419ddd2 100644
--- a/foreign/c/primitives/gauche/gauchelib.scm
+++ b/foreign/c/primitives/gauche/gauchelib.scm
@@ -56,7 +56,7 @@
  ;(define-cproc pointer-free (pointer) pointer_free)
 
  ;(define-cproc pointer-set-int8! (pointer offset::<int> value::<int8>) pointer_set_int8)
- (define-cproc pointer-set-uint8! (pointer offset::<int> value::<int8>) pointer_set_uint8)
+ (define-cproc pointer-set-uint8! (pointer offset::<int> value::<uint8>) pointer_set_uint8)
  ;(define-cproc pointer-set-int16! (pointer offset::<int> value::<int16>) pointer_set_int16)
  ;(define-cproc pointer-set-uint16! (pointer offset::<int> value::<int16>) pointer_set_uint16)
  ;(define-cproc pointer-set-int32! (pointer offset::<int> value::<int32>) pointer_set_int32)