03/03: installer: Bugfix color-index-by-symbol.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit fae928699b5a9019d7e97cbd7ab7f4d4a99d7ac2
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 20:57:16 2017 +0200

    installer: Bugfix color-index-by-symbol.
    
    * gurses/colors.scm (color-index-by-symbol): Fix bug.
---
 gurses/colors.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gurses/colors.scm b/gurses/colors.scm
index bd84790..f578543 100644
--- a/gurses/colors.scm
+++ b/gurses/colors.scm
@@ -12,13 +12,13 @@
 
 (define-public (color-index-by-symbol color)
   (let loop ((i 0) (p colors))
-    (if (null? colors)
+    (if (null? p)
         (error "unknown color" color)
-        (match (car colors)
+        (match (car p)
          ((color-symbol foreground background)
           (if (eq? color-symbol color)
               i
-              (loop (1+ i) (cdr colors))))))))
+              (loop (1+ i) (cdr p))))))))
 
 (define-public (register-color-palette!)
   (for-each (lambda (index entry)