From 8b6cea55ad5ebbcb6a0a530e4e6169de3c07afb4 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 26 Jul 2025 12:19:57 +0300
Subject: [PATCH] Fixing Kawa

---
 foreign/c/primitives/kawa.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm
index ef191d1..19a62aa 100644
--- a/foreign/c/primitives/kawa.scm
+++ b/foreign/c/primitives/kawa.scm
@@ -97,11 +97,8 @@
      (define scheme-name
        (let* ((callback-procedure
                 (lambda (arg1 . args)
-                  (try-catch
-                    (begin
-                      (apply procedure (append (list arg1) args)))
-                    (ex <java.lang.Throwable>
-                        #f))))
+                  (try-catch (begin (apply procedure (append (list arg1) args)))
+                             (ex <java.lang.Throwable> #f))))
               (function-descriptor
                 (let ((function-descriptor
                         (if (equal? return-type 'void)
@@ -159,7 +156,7 @@
     (invoke pointer 'equals null-pointer)))
 
 (define u8-value-layout
-  (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT)
+  (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_BYTE)
           'withByteAlignment
           1))