From b4c6497af0d57587a0f3302a03acf42b9a99068f Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 26 Jul 2025 14:27:57 +0300 Subject: [PATCH] Fixing Kawa --- foreign/c/primitives/kawa.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm index 3162021..6220b57 100644 --- a/foreign/c/primitives/kawa.scm +++ b/foreign/c/primitives/kawa.scm @@ -10,6 +10,12 @@ ((equal? type 'int8) (java.lang.Integer value)) ((equal? type 'uint8) + (java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum))) + ((equal? type 'short) + (java.lang.Short value)) + ((equal? type 'unsigned-short) + (java.lang.Short value)) + ((equal? type 'int) (display "VALUE HERE: ") (write value) (newline) @@ -17,12 +23,6 @@ (newline) (write (invoke (invoke value 'getClass) 'getName)) (newline) - (java.lang.Integer (invoke (gnu.math.UInt value) 'toIntNum))) - ((equal? type 'short) - (java.lang.Short value)) - ((equal? type 'unsigned-short) - (java.lang.Short value)) - ((equal? type 'int) (java.lang.Integer value)) ((equal? type 'unsigned-int) (java.lang.Integer value))