diff --git a/retropikzel/download-file.scm b/retropikzel/download-file.scm index 320437e..b1abad0 100644 --- a/retropikzel/download-file.scm +++ b/retropikzel/download-file.scm @@ -74,6 +74,4 @@ (error-string (c-bytevector->string error-cbv))) (c-bytevector-free error-cbv) (error error-string url))) - (curl-easy-cleanup handle) - ;(c-bytevector-free file-mode-cbv to-path-cbv to-file-cbv url-cbv) - ))) + (curl-easy-cleanup handle)))) diff --git a/retropikzel/system.scm b/retropikzel/system.scm index 71f3b90..44aad8c 100644 --- a/retropikzel/system.scm +++ b/retropikzel/system.scm @@ -3,6 +3,6 @@ (define (system command) (let* ((command-cbv (string->c-bytevector command)) - (result (c-system command-pointer))) + (result (c-system command-cbv))) (c-bytevector-free command-cbv) result))