diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | library/init.tcl | 2 |
2 files changed, 5 insertions, 0 deletions
@@ -1,5 +1,8 @@ 2011-04-04 Donal K. Fellows <dkf@users.sf.net> + * library/init.tcl (tcl::mathfunc::rmmadwiw): Disable by default to + make test suite work. + * generic/tclBasic.c, generic/tclStringObj.c, generic/tclTimer.c, * generic/tclTrace.c, generic/tclUtil.c: More generation of error codes ([format], [after], [trace], RE optimizer). diff --git a/library/init.tcl b/library/init.tcl index d85fe2a..f1d6a64 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -823,6 +823,7 @@ proc tcl::CopyDirectory {action src dest} { } # TIP 131 +if 0 { proc tcl::rmmadwiw {} { set magic { 42 83 fe f6 ff f8 f1 e5 c6 f9 eb fd ff fb f1 e5 cc f5 ec f5 e3 fd fe @@ -847,3 +848,4 @@ proc tcl::mathfunc::rmmadwiw {} { set matter [lreverse $mind] return [join $matter ""] } +} |