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)))
