From 2743812ae16911b0533a99905d9aa5b3668f6bf0 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sat, 25 Apr 2009 11:39:09 +0000
Subject: compatibility with Tcl 8.5a

svn path=/trunk/; revision=11142
---
 desiredata/src/poe.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'desiredata')

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"}
-- 
cgit v1.2.1