diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 17:15:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 17:15:48 (GMT) |
| commit | ff93032670a4b3e36a90eb3f6725e6dff64d4b6f (patch) | |
| tree | 166842954790f145b855b6c3550a36c64922a9ce /generic/tclOOScript.h | |
| parent | 63e9714b2ebee7046c5a8506b54e836c3f567a86 (diff) | |
| download | tcl-ff93032670a4b3e36a90eb3f6725e6dff64d4b6f.zip tcl-ff93032670a4b3e36a90eb3f6725e6dff64d4b6f.tar.gz tcl-ff93032670a4b3e36a90eb3f6725e6dff64d4b6f.tar.bz2 | |
Accelerate definition of [oo::define initialise]. (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 50d827f..ff29535 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -121,17 +121,6 @@ static const char *tclOOSetupScript = "\t\t}\n" "\t\t::tailcall forward $name myclass $name\n" "\t}\n" -"\tproc define::initialise {body} {\n" -"\t\t::set clsns [::info object namespace [::uplevel 1 self]]\n" -"\t\t::tailcall apply [::list {} $body $clsns]\n" -"\t}\n" -"\tnamespace eval define {\n" -"\t\t::namespace export initialise\n" -"\t\t::namespace eval tmp {::namespace import ::oo::define::initialise}\n" -"\t\t::namespace export -clear\n" -"\t\t::rename tmp::initialise initialize\n" -"\t\t::namespace delete tmp\n" -"\t}\n" "\tdefine Slot {\n" "\t\tmethod Get -unexport {} {\n" "\t\t\treturn -code error -errorcode {TCL OO ABSTRACT_SLOT} \"unimplemented\"\n" |