diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-28 07:27:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-28 07:27:17 (GMT) |
| commit | 324c39d51ccfbfe8ea45e7e482f1ad77ab7712e9 (patch) | |
| tree | 7242f8af094dff4ee72325f995bc17d592dfcc16 /generic/tclOOScript.h | |
| parent | e30e67e0cd3273dd1bd9d70296a418e285c98899 (diff) | |
| parent | 26aa7dd45392f4d572e252286f9e3ec546fe6037 (diff) | |
| download | tcl-324c39d51ccfbfe8ea45e7e482f1ad77ab7712e9.zip tcl-324c39d51ccfbfe8ea45e7e482f1ad77ab7712e9.tar.gz tcl-324c39d51ccfbfe8ea45e7e482f1ad77ab7712e9.tar.bz2 | |
Merge 8.7
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" |