diff options
Diffstat (limited to 'ds9/library/error.tcl')
| -rw-r--r-- | ds9/library/error.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/error.tcl b/ds9/library/error.tcl index fac9b8a..9a9311e 100644 --- a/ds9/library/error.tcl +++ b/ds9/library/error.tcl @@ -62,9 +62,9 @@ proc ParserError {msg yycnt yy_current_buffer index_} { Error "$msg: [lindex $yy_current_buffer [expr $yycnt-1]]" } default { - puts stderr "$msg:" puts stderr "$yy_current_buffer" puts stderr [format "%*s" $index_ ^] + puts stderr "$msg:" QuitDS9 } } |