diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-07 21:04:45 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-07 21:04:45 (GMT) |
commit | fa6b5102a4a03920929120d2991413d7896e9d86 (patch) | |
tree | 56bfaa2cbcde9b8d60445ff7fb581e6f1d0a630c /ds9/library/error.tcl | |
parent | e5fe91d686bfc9f2cd5fc32b2fb8cfc12bd93caa (diff) | |
download | blt-fa6b5102a4a03920929120d2991413d7896e9d86.zip blt-fa6b5102a4a03920929120d2991413d7896e9d86.tar.gz blt-fa6b5102a4a03920929120d2991413d7896e9d86.tar.bz2 |
update ds9 skyview parser
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 9a9311e..e6e6b0e 100644 --- a/ds9/library/error.tcl +++ b/ds9/library/error.tcl @@ -62,7 +62,7 @@ proc ParserError {msg yycnt yy_current_buffer index_} { Error "$msg: [lindex $yy_current_buffer [expr $yycnt-1]]" } default { - puts stderr "$yy_current_buffer" + puts stderr "[string range $yy_current_buffer 0 60]" puts stderr [format "%*s" $index_ ^] puts stderr "$msg:" QuitDS9 |