03/03: scripts: build: Format strings before calling display-hint.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 9022b942ecd6731e87010285a55f55c24f376739
Author: Zhu Zihao <all_but_last@163.com>
AuthorDate: Sun Sep 18 12:31:02 2022 +0800

    scripts: build: Format strings before calling display-hint.
    
    * guix/scripts/build.scm(%standard-cross-build-options): Format hint string.
    %standard-cross-build-options: Ditto.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 guix/scripts/build.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 06d9ad1f0c..0787dfcc9a 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -383,8 +383,9 @@ use '--no-offload' instead~%")))
                           (format #f (G_ "Did you mean @code{~a}?
 Try @option{--list-targets} to view available targets.~%")
                                   closest))
-                         (display-hint (G_ "\
-Try @option{--list-targets} to view available targets.~%")))
+                         (display-hint
+                          (format #f (G_ "\
+Try @option{--list-targets} to view available targets.~%"))))
                      (exit 1))))))))
 
 (define %standard-native-build-options
@@ -409,8 +410,9 @@ Try @option{--list-targets} to view available targets.~%")))
                           (format #f (G_ "Did you mean @code{~a}?
 Try @option{--list-systems} to view available system types.~%")
                                   closest))
-                         (display-hint (G_ "\
-Try @option{--list-systems} to view available system types.~%")))
+                         (display-hint
+                          (format #f (G_ "\
+Try @option{--list-systems} to view available system types.~%"))))
                      (exit 1))))))))