diff options
| author | griffin <briang42@easystreet.net> | 2023-06-30 14:34:09 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-30 14:34:09 (GMT) |
| commit | eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e (patch) | |
| tree | dab4b59fd48a4f8fc04057e2901fe1a6603afb54 /generic/tclOOScript.h | |
| parent | bd647296865ed931db4903444b182da472f91cae (diff) | |
| parent | cd82527608d6856590780a5c0cf5b6fde1dfbadf (diff) | |
| download | tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.zip tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.tar.gz tcl-eb1f9c99892df6f4227bfedc9ddd3ade75edcc4e.tar.bz2 | |
merge trunk
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" |