summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-04-04 14:10:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-04-04 14:10:01 (GMT)
commit81c9546b1af92a902cb067de0399aaf70403379c (patch)
tree49be8e50e3cdae02726953dc2ed6dcb163ff9d3e /library/init.tcl
parent944771f14e41095acdfc04183db4ebe153f01f8f (diff)
downloadtcl-81c9546b1af92a902cb067de0399aaf70403379c.zip
tcl-81c9546b1af92a902cb067de0399aaf70403379c.tar.gz
tcl-81c9546b1af92a902cb067de0399aaf70403379c.tar.bz2
Disable tcl::mathfunc::rmmadwiw by default to make test suite work; automated
test frameworks have no mind to read...
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl2
1 files changed, 2 insertions, 0 deletions
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 ""]
}
+}