From 3deecc2f87df59f7d438c5657ec9bdab6e387d5a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Feb 2026 14:48:39 +0100 Subject: [PATCH] =?UTF-8?q?perform-download:=20Use=20=E2=80=98read/safe?= =?UTF-8?q?=E2=80=99=20from=20(guix=20ui).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/scripts/perform-download.scm (read/safe): Remove. Change-Id: I941e1ab299dc1e82b2587ae58fc9f44aa9187653 Signed-off-by: Ludovic Courtès --- guix/scripts/perform-download.scm | 5 ----- guix/ui.scm | 1 + 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/guix/scripts/perform-download.scm b/guix/scripts/perform-download.scm index 4c1034beaf..389a86ce91 100644 --- a/guix/scripts/perform-download.scm +++ b/guix/scripts/perform-download.scm @@ -78,11 +78,6 @@ (define %sandbox-module (make-sandbox-module %safe-bindings)) -(define* (read/safe #:optional (port (current-input-port))) - (with-fluids ((read-eval? #f)) - (parameterize ((read-hash-procedures '())) - (read port)))) - (define (eval-content-addressed-mirrors content-addressed-mirrors file algo hash) "Evaluate the expression CONTENT-ADDRESSED-MIRRORS in a sandbox, and produce a list of wrapper procedures for safely calling the list of procedures that diff --git a/guix/ui.scm b/guix/ui.scm index 068071d3fd..e6829bd4d6 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -96,6 +96,7 @@ guix-warning-port program-name) #:export (display-hint make-user-module + read/safe load* warn-about-load-error show-version-and-exit