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))