summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2019-06-12 17:01:17 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2019-06-12 17:01:17 -0400
commit35d80cc6bba66b05d0cd8fa945fdbb70d406ffdd (patch)
tree539bfca764b1064e3fe86012746363e1f10d078a
parent9379c6520bf3c16e971eb6d8b33769854259da4e (diff)
node: Fix blink implementation.
-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)))))