From 712ee0941c578ef3f74529173eb9585c392c1674 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 26 Jul 2025 14:06:26 +0300 Subject: [PATCH] Fixing Kawa --- foreign/c/primitives/kawa.scm | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm index 450fffd..3e742e9 100644 --- a/foreign/c/primitives/kawa.scm +++ b/foreign/c/primitives/kawa.scm @@ -8,16 +8,27 @@ (cond ((equal? type 'byte) (java.lang.Byte value)) ((equal? type 'uint8) - (gnu.math.UnsignedPrim value) - ;(java.lang.Int value) - ) + (display "VALUE HERE: ") + (display (invoke (java.lang.Integer value) 'toBinaryString value)) + (newline) + (java.lang.Int value)) ((equal? type 'short) (java.lang.Short value)) ((equal? type 'unsigned-short) (java.lang.Short value)) ((equal? type 'int) + (display "VALUE HERE: ") + (display (invoke (java.lang.Integer value) 'toBinaryString value)) + (newline) (java.lang.Integer value)) ((equal? type 'unsigned-int) + (display "VALUE HERE: ") + (display (invoke (java.lang.Integer value) 'toBinaryString value)) + (newline) + (invoke (java.lang.Integer 1) + 'parseInt + (invoke (java.lang.Integer value) 'toBinaryString value) + 2) (java.lang.Integer value)) ((equal? type 'long) (java.lang.Long value))