housekeeping newlines etc

scriptlib/tests/pipeline1.tcl

@@ -1,57 +1,57 @@
-
-#-----------------------------------------------------------
-# a formatting experiment
-#-----------------------------------------------------------
-
-x.=val {
-a
-b c
-d e     f
-   g h i
-}                                                |> {
-
-
-
-    set data}                                    |> {
-
-
-    set data}                                    |> {
-
-    puts "raw: $data"
-    set data
-} \
-|> \
-    \
-     \
-l.=linelist    %data%\
-       \
-     |> \
-          {
-            puts "linelist: $data"
-            puts "args: $args"
-            set data
-          } \
-                    <args| a b c
-#-----------------------------------------------------------
-
-set input [list a b c d e f g]
-
-a.=val $input    |> {
-
-         .=lrange $data 1 end-1 |>\
-        b.=string toupper 
-        
-        puts stdout "=================================="
-        puts stdout [info vars]
-        foreach v [info vars] {
-            puts stderr "  '$v'"
-        }
-        puts stdout "=================================="
-        return $b
-} |>  b.=val                       
-
-puts $a
-puts $b
-
-
-
+
+#-----------------------------------------------------------
+# a formatting experiment
+#-----------------------------------------------------------
+
+x.= val {
+a
+b c
+d e     f
+   g h i
+}                                                |> {
+
+
+
+    set data}                                    |> {
+
+
+    set data}                                    |> {
+
+    puts "raw: $data"
+    set data
+} \
+|> \
+    \
+     \
+l.=linelist    %data%\
+       \
+     |> \
+          {
+            puts "linelist: $data"
+            puts "args: $args"
+            set data
+          } \
+                    <args| a b c
+#-----------------------------------------------------------
+
+set input [list a b c d e f g]
+
+a.=val $input    |> {
+
+         .=lrange $data 1 end-1 |>\
+        b.=string toupper 
+        
+        puts stdout "=================================="
+        puts stdout [info vars]
+        foreach v [info vars] {
+            puts stderr "  '$v'"
+        }
+        puts stdout "=================================="
+        return $b
+} |>  b.=val                       
+
+puts $a
+puts $b
+
+
+

src/modules/shellthread-1.6.tm

@@ -431,10 +431,10 @@ namespace eval shellthread::manager {
             # then it's likely we will need to use the caller's auto_path and tcl::tm::list to find things
             #The caller can tune the thread's package search by providing a settingsdict
             if {![dict exists $::settingsinfo tcl_tm_list]} {
-                tcl::tm::add %mp%
+                ::tcl::tm::add %mp%
             } else {
                 tcl::tm::remove {*}[tcl::tm::list]
-                tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list]
+                ::tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list]
             }
             if {![dict exists $::settingsinfo auto_path]} {
                 set ::auto_path [list %ap%]