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

download-file: Bug fixes

This commit is contained in:
retropikzel 2026-07-02 15:20:06 +03:00
parent e406a9f1ee
commit 9caf832822
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
retropikzel/download-file.scm
View File

@ -74,6 +74,4 @@
(error-string (c-bytevector->string error-cbv))) (error-string (c-bytevector->string error-cbv)))
(c-bytevector-free error-cbv) (c-bytevector-free error-cbv)
(error error-string url))) (error error-string url)))
(curl-easy-cleanup handle) (curl-easy-cleanup handle))))
;(c-bytevector-free file-mode-cbv to-path-cbv to-file-cbv url-cbv)
)))

2
retropikzel/system.scm
View File

@ -3,6 +3,6 @@
(define (system command) (define (system command)
(let* ((command-cbv (string->c-bytevector command)) (let* ((command-cbv (string->c-bytevector command))
(result (c-system command-pointer))) (result (c-system command-cbv)))
(c-bytevector-free command-cbv) (c-bytevector-free command-cbv)
result)) result))