04/18: installer: Add optional arguments to addstr*.

[John Darrington]

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

commit dab1055350319d94eca9e147986efbd22dd2dc62
Author: John Darrington <address@hidden>
Date:   Mon Jan 30 13:34:23 2017 +0100

    installer: Add optional arguments to addstr*.
    
    * gnu/system/installer/utils.scm (addstr*) Add keyword arguments
    
    enter the commit message for your changes. Lines starting
---
 gnu/system/installer/utils.scm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 96f49ac..e88524f 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -134,9 +134,9 @@ This version assumes some external entity puts in the 
carriage returns."
   (justify' (string-split text char-set:blank) 0  ""))
 
 
-(define (addstr* win str)
+(define* (addstr* win str #:key (y 0) (x 0))
   "Call the curses addstr procedure passing STR to justify to the width of WIN"
-  (addstr win (justify* str (getmaxx win))))
+  (addstr win (justify* str (getmaxx win)) #:y y #:x x))
 
 (define (open-input-pipe-with-fallback cmd)
   "Kludge for testing"