diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 20:00:43 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 20:00:43 (GMT) |
| commit | 503ed168603b213005c246edecfdfe77eefcc981 (patch) | |
| tree | 43f87078278b13bff9240dd6c41f5024aac6e620 /ds9/library/vlss.tcl | |
| parent | 669a10073068cf4c1366befcd2ebb0261eeff529 (diff) | |
| download | blt-503ed168603b213005c246edecfdfe77eefcc981.zip blt-503ed168603b213005c246edecfdfe77eefcc981.tar.gz blt-503ed168603b213005c246edecfdfe77eefcc981.tar.bz2 | |
cleanup ProcessCmd code
Diffstat (limited to 'ds9/library/vlss.tcl')
| -rw-r--r-- | ds9/library/vlss.tcl | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/ds9/library/vlss.tcl b/ds9/library/vlss.tcl index e0e45d6..1d85c3e 100644 --- a/ds9/library/vlss.tcl +++ b/ds9/library/vlss.tcl @@ -124,15 +124,10 @@ proc ProcessVLSSCmd {varname iname} { VLSSDialog - global debug - if {$debug(tcl,parser)} { - vlss::YY_FLUSH_BUFFER - vlss::yy_scan_string [lrange $var $i end] - vlss::yyparse - incr i [expr $vlss::yycnt-1] - } else { - IMGSVRProcessCmd $varname $iname dvlss - } + vlss::YY_FLUSH_BUFFER + vlss::yy_scan_string [lrange $var $i end] + vlss::yyparse + incr i [expr $vlss::yycnt-1] } proc ProcessSendVLSSCmd {proc id param} { |