diff options
Diffstat (limited to 'examples/client-server.tcl')
| -rw-r--r-- | examples/client-server.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/client-server.tcl b/examples/client-server.tcl index 0740773..01b1ed2 100644 --- a/examples/client-server.tcl +++ b/examples/client-server.tcl @@ -34,8 +34,8 @@ if {[os.fork] == 0} { $f writable {} } - $f readable [list onread $f] $f writable [list onwrite $f] + $f readable [list onread $f] alarm 10 catch -signal { |