mirror of
https://github.com/PDP-10/its.git
synced 2026-03-05 02:54:55 +00:00
Define 'abort' which is called on timeout.
This commit is contained in:
committed by
Eric Swenson
parent
f349b4fe6e
commit
1ad4855215
@@ -1,3 +1,9 @@
|
||||
proc abort {} {
|
||||
puts ""
|
||||
puts "The last command timed out."
|
||||
exit 1
|
||||
}
|
||||
|
||||
proc type s {
|
||||
sleep .1
|
||||
foreach c [split $s ""] {
|
||||
|
||||
Reference in New Issue
Block a user