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