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

Improvements for Chibi

This commit is contained in:
retropikzel 2025-01-25 07:31:46 +02:00
parent 83169beb2a
commit 9240a5a11e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
retropikzel/r7rs-pffi/r7rs-pffi-chibi.stub
View File

@ -256,6 +256,6 @@
if(sexp_procedurep(proc) == 1) { if(sexp_procedurep(proc) == 1) {
puts(\"ITS A PROCEDURE\"); puts(\"ITS A PROCEDURE\");
} }
return proc->source; //FIXME return (void*)proc; //FIXME
}") }")
(define-c void* (scheme-procedure-to-pointer scheme_procedure_to_pointer) (sexp)) (define-c void* (scheme-procedure-to-pointer scheme_procedure_to_pointer) (sexp))

2
test.scm
View File

@ -771,7 +771,7 @@
(pffi-pointer-get array 'int (* (pffi-size-of 'int) 1)) (pffi-pointer-get array 'int (* (pffi-size-of 'int) 1))
(pffi-pointer-get array 'int (* (pffi-size-of 'int) 2)))) (pffi-pointer-get array 'int (* (pffi-size-of 'int) 2))))
(newline) (newline)
;(qsort array 3 (pffi-size-of 'int) compare) (qsort array 3 (pffi-size-of 'int) compare)
(display "Sorted: ") (display "Sorted: ")
(write (list (pffi-pointer-get array 'int (* (pffi-size-of 'int) 0)) (write (list (pffi-pointer-get array 'int (* (pffi-size-of 'int) 0))