diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-06-17 17:27:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-06-17 17:27:41 (GMT) |
| commit | 8e696a5e5d19327336892388286b8d5d4fdc64a8 (patch) | |
| tree | a39efa2ceea0a1919f26cc92408400741578fce8 | |
| parent | 9e511d78742e4c5b32ad7d4286f2c0bd56e0083a (diff) | |
| download | tcl-8e696a5e5d19327336892388286b8d5d4fdc64a8.zip tcl-8e696a5e5d19327336892388286b8d5d4fdc64a8.tar.gz tcl-8e696a5e5d19327336892388286b8d5d4fdc64a8.tar.bz2 | |
Leaving out the weird delegates stops the test failures.
| -rw-r--r-- | generic/tclOOScript.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 5772e2c..4ca286c 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -51,7 +51,6 @@ static const char *tclOOSetupScript = " return\n" "}\n" -/* "proc ::oo::define::classmethod {name {args {}} {body {}}} {\n" " # Create the method on the class if the caller gave arguments and body\n" " set argc [llength [info level 0]]\n" @@ -59,12 +58,13 @@ static const char *tclOOSetupScript = " return -code error [string cat {wrong # args: should be \"}" " [lindex [info level 0] 0] { name ?args body?\"}]\n" " }\n" -" # Get the name of the current class or class delegate\n" " set cls [uplevel 1 self]\n" +/* " set d $cls.Delegate\n" " if {[info object isa object $d] && [info object isa class $d]} {\n" " set cls $d\n" " }\n" +*/ " if {$argc == 4} {\n" " ::oo::define $cls method $name $args $body\n" " }\n" @@ -72,6 +72,7 @@ static const char *tclOOSetupScript = " tailcall forward $name [info object namespace $cls]::my $name\n" "}\n" +/* "# Build this *almost* like a class method, but with extra care to avoid\n" "# nuking the existing method.\n" "::oo::class create ::oo::class.Delegate {\n" |