Fixed message for mode 40 output.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -7s
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -7s
This commit is contained in:
parent
5051de99fe
commit
dc8b8a535e
|
@ -2,7 +2,7 @@
|
||||||
#
|
#
|
||||||
# Typically used in combination with the MSX-DOS 'omsxctl.com' utility.
|
# Typically used in combination with the MSX-DOS 'omsxctl.com' utility.
|
||||||
#
|
#
|
||||||
# Adds two environment variables and two commands to openMSX;
|
# Adds two commands to openMSX;
|
||||||
#
|
#
|
||||||
# 'fail_after timeout [timeunit] [fail_id] [fail_code]'
|
# 'fail_after timeout [timeunit] [fail_id] [fail_code]'
|
||||||
# Schedules an openMSX exit after the timeout.
|
# Schedules an openMSX exit after the timeout.
|
||||||
|
@ -54,7 +54,7 @@ proc fail_after { timeout {time_unit "time"} {fail_id "fail_after"} {fail_code 2
|
||||||
puts stderr "error: $err_msg"
|
puts stderr "error: $err_msg"
|
||||||
fail_after_exit fail_after_timer_error 1
|
fail_after_exit fail_after_timer_error 1
|
||||||
}
|
}
|
||||||
set msg "$msg\n$fail_id: Automatic failure in $timeout $time_unit seconds."
|
set msg "$msg\n$fail_id: Failure in $timeout $time_unit sec"
|
||||||
} else {
|
} else {
|
||||||
set fail_after_prev_timer 0
|
set fail_after_prev_timer 0
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue