From af150b1f6557fc0ea8b900c83df51fbda878fd5b Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Fri, 20 Mar 2026 22:57:55 +0800 Subject: [PATCH] bootloader: limine: Simplify error handling in installation script. --- modules/rosenthal/bootloader/limine.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/modules/rosenthal/bootloader/limine.scm b/modules/rosenthal/bootloader/limine.scm index b35e0aa..688fbd9 100644 --- a/modules/rosenthal/bootloader/limine.scm +++ b/modules/rosenthal/bootloader/limine.scm @@ -60,8 +60,6 @@ (call-with-output-file (in-vicinity limine-directory "limine.conf.tmp") (lambda (port) (let* ((ukify #$(file-append ukify "/bin/ukify")) - (script-path (first args)) - (minbytes (* 2 (stat:size (stat script-path)))) (current-label (first '#$labels)) (current-args (first (list #$@ukify-args))) (old-labels (cdr '#$labels)) @@ -86,12 +84,10 @@ (unless (null? labels) (with-exception-handler (lambda _ - (false-if-exception (delete-file image-name)) + (delete-file image-name) ;; Exit loop. (loop 0 '() '())) (lambda () - (when (< (free-disk-space ".") minbytes) - (raise-exception 'insuffcient-disk-space)) (apply invoke/quiet ukify "build" "--output" image-name (first args))