diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2019-06-12 17:01:17 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-06-12 17:01:17 -0400 |
| commit | 35d80cc6bba66b05d0cd8fa945fdbb70d406ffdd (patch) | |
| tree | 539bfca764b1064e3fe86012746363e1f10d078a | |
| parent | 9379c6520bf3c16e971eb6d8b33769854259da4e (diff) | |
node: Fix blink implementation.
| -rw-r--r-- | starling/node.scm | 16 |
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))))) |