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 12:19:57 +03:00
parent 51d2ed9380
commit 8b6cea55ad
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,11 +97,8 @@
(define scheme-name (define scheme-name
(let* ((callback-procedure (let* ((callback-procedure
(lambda (arg1 . args) (lambda (arg1 . args)
(try-catch (try-catch (begin (apply procedure (append (list arg1) args)))
(begin (ex <java.lang.Throwable> #f))))
(apply procedure (append (list arg1) args)))
(ex <java.lang.Throwable>
#f))))
(function-descriptor (function-descriptor
(let ((function-descriptor (let ((function-descriptor
(if (equal? return-type 'void) (if (equal? return-type 'void)
@ -159,7 +156,7 @@
(invoke pointer 'equals null-pointer))) (invoke pointer 'equals null-pointer)))
(define u8-value-layout (define u8-value-layout
(invoke (static-field java.lang.foreign.ValueLayout 'JAVA_INT) (invoke (static-field java.lang.foreign.ValueLayout 'JAVA_BYTE)
'withByteAlignment 'withByteAlignment
1)) 1))