diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
commit | 64443ae4af0357574ac3108258ac0f315e2a3bc9 (patch) | |
tree | 4ef9a36e76bc596aec60cb1f17b1df4ac104ac34 /ds9/library/command.tcl | |
parent | ea5e6ca2e6523f0b2a585112b5fd5f18e9fcf969 (diff) | |
download | blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.zip blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.gz blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.bz2 |
add namespace
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index b6f4f77..26d9b14 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -97,8 +97,9 @@ proc ProcessCommand {argv argc} { set item [lindex $argv $i] switch -- $item { -foo { + puts "argc: $argc" yy::YY_FLUSH_BUFFER - yy::yy_scan_string $argv + yy::yy_scan_string [string range $argv $i end] yy::yyparse set argc 0 } |