seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-04 17:04:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

bootloader: limine: Remove use of false-if-exception.

Browse Source 
There already exists an exception handler.

* modules/rosenthal/bootloader/limine.scm (limine-configuration-file): Remove
use of false-if-exception.
This commit is contained in:
Hilton Chain 2026-03-03 15:37:33 +08:00
parent ef75c33357
commit 11d821da23
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
modules/rosenthal/bootloader/limine.scm
View File

@ -78,31 +78,30 @@
current-label) current-label)
(unless (null? old-labels) (unless (null? old-labels)
(format port "~%/GNU system, old configurations...~%")) (format port "~%/GNU system, old configurations...~%"))
(false-if-exception (let loop ((count 1)
(let loop ((count 1) (labels old-labels)
(labels old-labels) (args old-args))
(args old-args)) (let* ((image-name (format #f "OLD-~a.EFI" count)))
(let* ((image-name (format #f "OLD-~a.EFI" count))) (unless (null? labels)
(unless (null? labels) (with-exception-handler
(with-exception-handler (lambda _
(lambda _ (false-if-exception (delete-file image-name))
(false-if-exception (delete-file image-name)) (exit))
(exit)) (lambda ()
(lambda () (when (< (free-disk-space ".") minbytes)
(when (< (free-disk-space ".") minbytes) (raise-exception 'insuffcient-disk-space))
(raise-exception 'insuffcient-disk-space)) (apply invoke/quiet
(apply invoke/quiet ukify "build" "--output" image-name
ukify "build" "--output" image-name (first args))
(first args)) (format port "~
(format port "~
//~a //~a
protocol: efi protocol: efi
path: boot():/EFI/Guix/OLD-~a.EFI~%" path: boot():/EFI/Guix/OLD-~a.EFI~%"
(first labels) (first labels)
count))) count)))
(loop (1+ count) (loop (1+ count)
(cdr labels) (cdr labels)
(cdr args)))))))))) (cdr args)))))))))
(rename-file (in-vicinity limine-directory "limine.conf.tmp") (rename-file (in-vicinity limine-directory "limine.conf.tmp")
(in-vicinity limine-directory "limine.conf"))))))) (in-vicinity limine-directory "limine.conf")))))))