diff options
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 } |