Move load-any no load error into cmdModuleLoad

Refactor module procedure to move the error raise when no error and no
module loaded in case of a load-any sub-command. This code is moved
directly at the end of cmdModuleLoad.

Author: xdelaruelle

tcl/main.tcl.in

@@ -497,12 +497,6 @@ proc module {command args} {
             # within sourced file evaluation as top load command
             if {[isTopEvaluation]} {
                set ret [cmdModuleLoad load 1 $tag_list {*}$args]
-               # raise error if no module has been loaded or has produced an
-               # error during its load attempt
-               if {!$ret && $command eq {load-any} && ![is-loaded {*}$args]\
-                  && ![is-loading {*}$args]} {
-                  knerror "No module has been loaded"
-               }
             } elseif {$mode eq {load}} {
                # load here if try-load or no auto mode (done through prereq
                # elsewhere, inhibited if currently in DepRe context)

tcl/subcmd.tcl.in

@@ -826,13 +826,13 @@ proc cmdModuleLoad {context uasked tag_list args} {
    reportDebug "loading $args (context=$context, uasked=$uasked)"
 
    set ret 0
+   set loadok 0
    lappendState mode load
    foreach mod $args {
       # stop when first module in list is loaded if processing load-any cmd
-      if {[info exists loadok] && $loadok && [currentState any_modulefile]} {
+      if {$loadok && [currentState any_modulefile]} {
          break
       }
-      set loadok 0
 
       # if a switch action is ongoing...
       if {$context eq {swload}} {
@@ -1166,6 +1166,13 @@ proc cmdModuleLoad {context uasked tag_list args} {
    }
    lpopState mode
 
+   # raise error if no module has been loaded or has produced an error during
+   # its load attempt in case of load-any sub-command
+   if {!$ret && !$loadok && $context eq {load} && [currentState\
+      any_modulefile]} {
+      knerror "No module has been loaded"
+   }
+
    return $ret
 }