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:
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 ""] {
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user