diff options
Diffstat (limited to 'taccle/taccle.tcl')
-rw-r--r-- | taccle/taccle.tcl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 661303f..0d6948b 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -1016,15 +1016,13 @@ proc write_array {fd name values} { # Writes a header file that should be [source]d by the lexer. proc write_header_file {} { # scan through token_table and write out all non-implicit terminals - puts $::header "namespace eval ${::p} \{" foreach tok_id $::token_list { if {$::token_id_table($tok_id,t) == $::TERMINAL && \ [string is integer $tok_id] && $tok_id >= 256} { set token $::token_id_table($tok_id) - puts $::header "variable ${token} $tok_id" + puts $::header "set ${token} $tok_id" } } - puts $::header "\}" } ###################################################################### |