Commit b79130e3 authored by Christopher Alfeld's avatar Christopher Alfeld

Another chnagange I thought I made long ago.

parent cea62f44
......@@ -55,7 +55,8 @@ proc var_import {varspec} {
# Print an error message and mark as failed run.
###
proc perror {msg} {
var_import ::GLOBALS::errors argv0
var_import ::GLOBALS::errors
global argv0
puts stderr "$argv0: *** $msg"
set errors 1
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment