This commit is contained in:
ton
2024-10-07 10:13:40 +07:00
parent aa1631742f
commit 3a7d696db6
9729 changed files with 1832837 additions and 161742 deletions

View File

@@ -53,7 +53,7 @@ proc ::history {args} {
}
# Tricky stuff needed to make stack and errors come out right!
tailcall apply {arglist {tailcall history {*}$arglist} ::tcl} $args
tailcall apply {arglist {tailcall ::tcl::history {*}$arglist} ::tcl} $args
}
# (unnamed) --
@@ -268,7 +268,7 @@ proc ::tcl::HistIndex {event} {
return -code error "event \"$event\" is too far in the past"
}
if {$i > $history(nextid)} {
return -code error "event \"$event\" hasn't occured yet"
return -code error "event \"$event\" hasn't occurred yet"
}
return $i
}