diff options
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index b7c1f1d..eb6a96e 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -164,12 +164,13 @@ static const char *tclOOSetupScript = "\t\tmethod -appendifnew -export args {\n" "\t\t\tset my [namespace which my]\n" "\t\t\tset current [uplevel 1 [list $my Get]]\n" -"\t\t\tset args [lmap a $args {\n" +"\t\t\tforeach a $args {\n" "\t\t\t\tset a [uplevel 1 [list $my Resolve $a]]\n" -"\t\t\t\tif {$a in $current} continue\n" -"\t\t\t\tset a\n" -"\t\t\t}]\n" -"\t\t\ttailcall my Set [list {*}$current {*}$args]\n" +"\t\t\t\tif {$a ni $current} {\n" +"\t\t\t\t\tlappend current $a\n" +"\t\t\t\t}\n" +"\t\t\t}\n" +"\t\t\ttailcall my Set $current\n" "\t\t}\n" "\t\tmethod -clear -export {} {tailcall my Set {}}\n" "\t\tmethod -prepend -export args {\n" |