Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing Kawa

This commit is contained in:
retropikzel 2025-07-26 14:26:56 +03:00
parent e766d22562
commit a5eda8008d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
foreign/c/primitives/kawa.scm
View File

@ -5,6 +5,11 @@
(define value->object
(lambda (value type)
(cond ((equal? type 'byte)
(java.lang.Byte value))
((equal? type 'int8)
(java.lang.Integer value))
((equal? type 'uint8)
(display "VALUE HERE: ")
(write value)
(newline)
@ -12,11 +17,6 @@
(newline)
(write (invoke (invoke value 'getClass) 'getName))
(newline)
(cond ((equal? type 'byte)
(java.lang.Byte value))
((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))