From 35d80cc6bba66b05d0cd8fa945fdbb70d406ffdd Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 12 Jun 2019 17:01:17 -0400 Subject: node: Fix blink implementation. --- starling/node.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/starling/node.scm b/starling/node.scm index b21d5c6..dbfc702 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -232,12 +232,10 @@ represented as a ratio in the range [0, 1]." (with-agenda (agenda node) (clear-agenda))) (define-method (blink (node ) times interval) - (let ((orig (visible? node))) - (let loop ((i 0)) - (when (< i times) - (set! (visible? node) #f) - (sleep interval) - (set! (visible? node) #t) - (sleep interval) - (loop (+ i 1)))) - (set! (visible? node) orig))) + (let loop ((i 0)) + (when (< i times) + (set! (visible? node) #f) + (sleep interval) + (set! (visible? node) #t) + (sleep interval) + (loop (+ i 1))))) -- cgit v1.2.3