summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node.scm16
1 files 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 <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)))))