12/16: ui: Avoid '_' as a pattern variable in 'match'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 30906825cb99122f6b068a1d9223937757d75ce5
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 8 21:36:54 2017 +0100

    ui: Avoid '_' as a pattern variable in 'match'.
    
    * guix/ui.scm (fill-paragraph): Don't use '_' as a pattern variable
    since that is shadowed by the top-level '_' binding on Guile 2.2.
    (show-manifest-transaction): Likewise.
---
 guix/ui.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index 6247944..5ae082f 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -687,7 +687,7 @@ replacement if PORT is not Unicode-capable."
                          "The following packages will be removed:~%~{~a~%~}~%"
                          len)
                      remove))))
-      (_ #f))
+      (x #f))
     (match downgrade
       (((($ <manifest-entry> name old-version)
          . ($ <manifest-entry> _ new-version output item)) ..1)
@@ -705,7 +705,7 @@ replacement if PORT is not Unicode-capable."
                          "The following packages will be 
downgraded:~%~{~a~%~}~%"
                          len)
                      downgrade))))
-      (_ #f))
+      (x #f))
     (match upgrade
       (((($ <manifest-entry> name old-version)
          . ($ <manifest-entry> _ new-version output item)) ..1)
@@ -723,7 +723,7 @@ replacement if PORT is not Unicode-capable."
                          "The following packages will be upgraded:~%~{~a~%~}~%"
                          len)
                      upgrade))))
-      (_ #f))
+      (x #f))
     (match install
       ((($ <manifest-entry> name version output item _) ..1)
        (let ((len     (length name))
@@ -739,7 +739,7 @@ replacement if PORT is not Unicode-capable."
                          "The following packages will be 
installed:~%~{~a~%~}~%"
                          len)
                      install))))
-      (_ #f))))
+      (x #f))))
 
 (define-syntax with-error-handling
   (syntax-rules ()
@@ -820,7 +820,7 @@ converted to a space; sequences of more than one line break 
are preserved."
   (match (string-fold maybe-break
                       `(,column 0 ())
                       str)
-    ((_ _ chars)
+    ((column newlines chars)
      (list->string (reverse chars)))))
 
 
@@ -1024,7 +1024,7 @@ DURATION-RELATION with the current time."
        (valid-generations (iota n 1)))
       ((lst ..1)
        (valid-generations lst))
-      (_ #f)))
+      (x #f)))
 
   (define (filter-by-duration duration)
     (define (time-at-midnight time)