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

Remove unused code from Racket version

This commit is contained in:
retropikzel 2024-08-23 09:31:11 +03:00
parent a049f359f5
commit e6d1bf2fa5
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
retropikzel/r7rs-pffi/version/racket.scm
View File

@ -107,7 +107,6 @@
(cond (cond
((equal? type 'string) ((equal? type 'string)
(ptr-set! pointer (pffi-type->native-type type) 'abs offset (pffi-string->pointer value))) (ptr-set! pointer (pffi-type->native-type type) 'abs offset (pffi-string->pointer value)))
;((equal? type 'pointer) (ptr-set! pointer _intptr offset (cast value _pointer _intptr)))
(else (else
(ptr-set! pointer (pffi-type->native-type type) 'abs offset value))))) (ptr-set! pointer (pffi-type->native-type type) 'abs offset value)))))