summaryrefslogtreecommitdiffstats
path: root/fickle
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-02-24 21:07:15 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-02-24 21:07:15 (GMT)
commit8be736357b6ef233a9c637f5f6b73ed216c24d38 (patch)
treef29325e559eb09151101a708423593d0b50ceb7c /fickle
parent56e12771a321dfd6b62dc64aa43f1250d64c349e (diff)
downloadblt-8be736357b6ef233a9c637f5f6b73ed216c24d38.zip
blt-8be736357b6ef233a9c637f5f6b73ed216c24d38.tar.gz
blt-8be736357b6ef233a9c637f5f6b73ed216c24d38.tar.bz2
add support for namespaces
Diffstat (limited to 'fickle')
-rw-r--r--fickle/fickle.tcl3
1 files changed, 1 insertions, 2 deletions
diff --git a/fickle/fickle.tcl b/fickle/fickle.tcl
index ac97612..b230cb6 100644
--- a/fickle/fickle.tcl
+++ b/fickle/fickle.tcl
@@ -350,7 +350,7 @@ proc write_scanner_utils {} {
puts $::dest "
variable state_stack_ {}
variable state_table_
- array set state_table_ {INITIAL 1}"
+ array set state_table_ \{[array get ::state_table]\}"
}
puts $::dest "\}"
@@ -942,7 +942,6 @@ proc fickle_main {} {
}
}
}
- puts [array get ::state_table]
}
######################################################################