me
/
guix
Archived
1
0
Fork 0
Code

maint: Use 'G_' in build-aux/ scripts. 

This is a followup to 69daee23af.

* build-aux/check-final-inputs-self-contained.scm (assert-valid-substitute):
Use 'G_' instead of '_'.
master
Ludovic Courtès 2017-05-08 14:24:09 +02:00
parent 1d248adb32
commit c8ba269c26
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
build-aux/check-final-inputs-self-contained.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -57,7 +57,7 @@
if it does." if it does."
(let ((references (substitutable-references substitute))) (let ((references (substitutable-references substitute)))
(when (any (cut string-contains <> "boot") references) (when (any (cut string-contains <> "boot") references)
(leave (_ "'~a' refers to bootstrap inputs: ~s~%") (leave (G_ "'~a' refers to bootstrap inputs: ~s~%")
(substitutable-path substitute) references)))) (substitutable-path substitute) references))))
(define (test-final-inputs store system) (define (test-final-inputs store system)
@ -71,7 +71,7 @@ refer to the bootstrap tools."
(string=? (substitutable-path substitute) (string=? (substitutable-path substitute)
dir)) dir))
available) available)
(leave (_ "~a (system: ~a) has no substitute~%") (leave (G_ "~a (system: ~a) has no substitute~%")
dir system))) dir system)))
inputs) inputs)