diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-28 07:15:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-28 07:15:59 (GMT) |
| commit | bc2704655159b853d5d495486d75048f9222bfa7 (patch) | |
| tree | 2936ce54a8522a5d8fd1d94ec88dda453053c5a8 | |
| parent | 04d66a25716cb7738dad3170cca4d0a4683db08a (diff) | |
| download | tcl-bc2704655159b853d5d495486d75048f9222bfa7.zip tcl-bc2704655159b853d5d495486d75048f9222bfa7.tar.gz tcl-bc2704655159b853d5d495486d75048f9222bfa7.tar.bz2 | |
Fix [78b9b6860c]: Please sync 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" |