diff options
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index d96ee76..4b58337 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -85,7 +85,7 @@ static const char *tclOOSetupScript = " ::oo::define [::oo::DelegateName $cls] method $name $args $body\n" " }\n" " # Make the connection by forwarding\n" -" tailcall forward $name { :my:class} $name\n" +" tailcall forward $name myclass $name\n" "}\n" "proc ::oo::MixinClassDelegates {class} {\n" |