download-file: Bug fixes

2026-07-02 15:20:06 +03:00
parent e406a9f1ee
commit 9caf832822
2 changed files with 2 additions and 4 deletions
@@ -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))))
@@ -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))