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

commit 09e4f8721460ae91cfacb75048fc8f00a4ba6b9d
Author: John Darrington <j...@gnu.org>
Date:   Fri Jan 6 17:41:01 2017 +0100

    installer: Correct behaviour of push-cursor and pop-cursor procedures.
    
    * utils.scm (push-cursor,pop-cursor): Correct thinko.
---
 gnu/system/installer/utils.scm |    8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 25a8390..5517710 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -209,13 +209,11 @@ which will process each string before returning it."
 (define cursor-stack '())
 
 (define (push-cursor c)
-  (curs-set c)
-  (set! cursor-stack (cons c cursor-stack)))
+  (set! cursor-stack (cons (curs-set c) cursor-stack)))
 
 (define (pop-cursor)
-  (set! cursor-stack (cdr cursor-stack))
-  (curs-set (car cursor-stack)))
-
+  (curs-set (car cursor-stack))
+  (set! cursor-stack (cdr cursor-stack)))
 
 
 

Reply via email to