diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:38:09 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:38:09 (GMT) |
| commit | a084ed270335d390e6bf8748b1f40d51eaff5c17 (patch) | |
| tree | 348498b32c09653f6909f12a30f644329fa21400 /taccle/taccle.tcl | |
| parent | e8fb71f1376d02c92b39c9d14df1053f3026197a (diff) | |
| download | blt-a084ed270335d390e6bf8748b1f40d51eaff5c17.zip blt-a084ed270335d390e6bf8748b1f40d51eaff5c17.tar.gz blt-a084ed270335d390e6bf8748b1f40d51eaff5c17.tar.bz2 | |
add namespace
Diffstat (limited to 'taccle/taccle.tcl')
| -rw-r--r-- | taccle/taccle.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index fb50933..51b4448 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -893,8 +893,8 @@ proc write_parser {} { set state_stack {0} set value_stack {{}} set token \"\" - set ${::p}accepted 0 - while {\$${::p}accepted == 0} { + set accepted 0 + while {\$accepted == 0} { set state \[lindex \$state_stack end\] if {\$token == \"\"} { set yylval \"\" @@ -966,7 +966,7 @@ proc write_parser {} { lappend value_stack \$_ } accept { - set ${::p}accepted 1 + set accepted 1 } goto - default { |