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

Move gauche to using shared pointer->string and string->pointer

This commit is contained in:
retropikzel 2025-03-15 06:57:22 +02:00
parent ad9a6778af
commit 4d24c23a5c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
retropikzel/pffi/gauche.scm
View File

@ -113,11 +113,11 @@
((equal? type 'void) (pointer-get-pointer pointer offset)) ((equal? type 'void) (pointer-get-pointer pointer offset))
((equal? type 'pointer) (pointer-get-pointer pointer offset))))) ((equal? type 'pointer) (pointer-get-pointer pointer offset)))))
(define pffi-string->pointer #;(define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
(string->pointer string-content))) (string->pointer string-content)))
(define pffi-pointer->string #;(define pffi-pointer->string
(lambda (pointer) (lambda (pointer)
(pointer->string pointer))) (pointer->string pointer)))