Commit 58247bf1 authored by Christopher Alfeld's avatar Christopher Alfeld

Quick fix for pritning out error messages correctly.

parent 8cce56af
......@@ -55,8 +55,8 @@ proc var_import {varspec} {
# Print an error message and mark as failed run.
proc perror {msg} {
var_import ::GLOBALS::errors
puts stderr "$0: *** $msg"
var_import ::GLOBALS::errors 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