From 9caf832822759675bb88aa77ef69f749066925ff Mon Sep 17 00:00:00 2001 From: retropikzel Date: Thu, 2 Jul 2026 15:20:06 +0300 Subject: [PATCH] download-file: Bug fixes --- retropikzel/download-file.scm | 4 +--- retropikzel/system.scm | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) 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))