edwin/xterm.scm (get-xterm-input-operations): Eliminate busy loop.
authorMatt Birkholz <matt@birchwood-abbey.net>
Tue, 9 Aug 2016 17:59:01 +0000 (10:59 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Tue, 9 Aug 2016 17:59:01 +0000 (10:59 -0700)
commit8658f6510fce9af234132318f2fc83ec0d056405
tree584b601b5a4eb6abcaf97dd6b8b0ec0a3f933bb0
parentb0f9dfa9bb301c46af136ff30101633b80ab863e
edwin/xterm.scm (get-xterm-input-operations): Eliminate busy loop.

The busy loop in the keyboard peek-no-hang operation is more expensive
than ever.  Replace it with a timer in block-for-event.  Cache
current-thread and check that it has not changed before deregistering.
src/edwin/xterm.scm