diff options
author | N.N. <matju@users.sourceforge.net> | 2009-04-25 11:39:09 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-04-25 11:39:09 +0000 |
commit | 2743812ae16911b0533a99905d9aa5b3668f6bf0 (patch) | |
tree | fbc8490d7a6057ff842d5fb139a374f3b39adea9 /desiredata | |
parent | 84ffb018d896ab27d7c9976d06b46713a40c37fc (diff) |
compatibility with Tcl 8.5a
svn path=/trunk/; revision=11142
Diffstat (limited to 'desiredata')
-rw-r--r-- | desiredata/src/poe.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/desiredata/src/poe.tcl b/desiredata/src/poe.tcl index ab0cbc48..aa6f463a 100644 --- a/desiredata/src/poe.tcl +++ b/desiredata/src/poe.tcl @@ -35,6 +35,12 @@ set nextid 0 set _(Class:_class) Class set _(Class:_super) {Thing} set have_expand [expr ![catch {set a {foo bar}; list {expand}$a}]] + +proc correct_splat {code} { + if {!$::have_expand} {return $code} + regsub {{*}} $code {{expand}} +} + proc proc* {name args body} { set argl {} foreach arg $args {set arg [lindex $arg 0]; lappend argl "$arg=\$$arg"} |