diff options
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/error.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ds9/library/error.tcl b/ds9/library/error.tcl index afed4ea..906a9e4 100644 --- a/ds9/library/error.tcl +++ b/ds9/library/error.tcl @@ -59,12 +59,12 @@ proc ParserError {msg yycnt yy_current_buffer index_} { xpa - hv - samp { - Error "$msg: [lindex $yy_current_buffer [expr $yycnt-1]]" + Error "$msg, found [lindex $yy_current_buffer [expr $yycnt-1]]" } default { - puts stderr "[string range $yy_current_buffer 0 80]" + puts stderr "[string range $yy_current_buffer 0 60]" puts stderr [format "%*s" $index_ ^] - puts stderr "$msg:" + puts stderr "$msg" QuitDS9 } } |