Fixed message for mode 40 output.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -7s

This commit is contained in:
Willem Cazander 2024-06-28 18:52:59 +02:00
parent 5051de99fe
commit dc8b8a535e

View file

@ -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
} }