From bd2dca3b1738631da187759d2137d4b1e98d04d4 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 26 Jul 2025 14:13:26 +0300 Subject: [PATCH] Fixing Kawa --- foreign/c/primitives/kawa.scm | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/foreign/c/primitives/kawa.scm b/foreign/c/primitives/kawa.scm index 3e742e9..da44ff1 100644 --- a/foreign/c/primitives/kawa.scm +++ b/foreign/c/primitives/kawa.scm @@ -5,30 +5,24 @@ (define value->object (lambda (value type) + (display "VALUE HERE: ") + (write value) + (newline) + (write type) + (newline) + (write (invoke (invoke value 'getClass) 'getName)) + (newline) (cond ((equal? type 'byte) (java.lang.Byte value)) ((equal? type 'uint8) - (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))