1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-17 08:43:21 +00:00

Define 'abort' which is called on timeout.

This commit is contained in:
Lars Brinkhoff 2017-02-05 15:50:18 +01:00 committed by Eric Swenson
parent f349b4fe6e
commit 1ad4855215

View File

@ -1,3 +1,9 @@
proc abort {} {
puts ""
puts "The last command timed out."
exit 1
}
proc type s {
sleep .1
foreach c [split $s ""] {