diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-21 19:07:46 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-21 19:07:46 (GMT) |
commit | 6d5c5839631639d21a123e97c0afbb07d6ee68a3 (patch) | |
tree | 53fa318ac613fbe1c529f59aedd5108769319bbe /ds9/library | |
parent | e384095085218f8181d2a8f9492fafcefe1b33d0 (diff) | |
download | blt-6d5c5839631639d21a123e97c0afbb07d6ee68a3.zip blt-6d5c5839631639d21a123e97c0afbb07d6ee68a3.tar.gz blt-6d5c5839631639d21a123e97c0afbb07d6ee68a3.tar.bz2 |
update ds9 parsers
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 } } |