summaryrefslogtreecommitdiffstats
path: root/ds9/library/error.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-03-06 21:25:45 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-03-06 21:25:45 (GMT)
commit6eac06049e2a6911ba9e6c36a1ba624fe0956b39 (patch)
tree4ee7dfff822f1989bd28060b5c328558243de172 /ds9/library/error.tcl
parent8a03f0daaee5e3981cd4f9f69b3841694e8dc0be (diff)
downloadblt-6eac06049e2a6911ba9e6c36a1ba624fe0956b39.zip
blt-6eac06049e2a6911ba9e6c36a1ba624fe0956b39.tar.gz
blt-6eac06049e2a6911ba9e6c36a1ba624fe0956b39.tar.bz2
add ds9 parsers
Diffstat (limited to 'ds9/library/error.tcl')
-rw-r--r--ds9/library/error.tcl2
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
}
}