perform-download: Use ‘read/safe’ from (guix ui).

* guix/scripts/perform-download.scm (read/safe): Remove.

Change-Id: I941e1ab299dc1e82b2587ae58fc9f44aa9187653
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

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

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