Update sqlite to 3.7.3.

third_party/sqlite/src/test/thread_common.tcl

 # 2007 September 10
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 62 matching lines @@
 
   proc do_test {name script result} {
     set res [eval $script]
     if {$res ne $result} {
       error "$name failed: expected \"$result\" got \"$res\""
     }
   }
 }
 
 proc thread_spawn {varname args} {
-  sqlthread spawn $varname [join $args ;]
+  sqlthread spawn $varname [join $args {;}]
 }
 
 # Return true if this build can run the multi-threaded tests.
 #
 proc run_thread_tests {{print_warning 0}} {
   ifcapable !mutex { 
     set zProblem "SQLite build is not threadsafe"
   }
   if {[info commands sqlthread] eq ""} {
     set zProblem "SQLite build is not threadsafe"
   }
   if {![info exists ::tcl_platform(threaded)]} {
     set zProblem "Linked against a non-threadsafe Tcl build"
   }
   if {[info exists zProblem]} {
-    if {$print_warning} {
-      if {[info exists ::run_thread_tests_failed]} {
-        puts "WARNING: Multi-threaded tests skipped: $zProblem"
-      }
-    } else {
-      puts "Skipping thread tests: $zProblem"
-      set ::run_thread_tests_failed 1
-    }
+    puts "WARNING: Multi-threaded tests skipped: $zProblem"
     return 0
   }
+  set ::run_thread_tests_called 1
   return 1;
 }
 
 return 0