Remove modvr default value on setLoadedModule proc

xdelaruelle · xdelaruelle · commit 189461a1d5e0 · 2022-10-31T13:18:58.000+01:00
diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in
@@ -1145,7 +1145,7 @@ proc isModuleRefreshQualified {mod} {
    return $::g_loadedModulesRefresh($mod)
 }
 
-proc setLoadedModule {mod modfile uasked {modvr {}} refresh} {
+proc setLoadedModule {mod modfile uasked modvr refresh} {
    set ::g_loadedModules($mod) $modfile
    # a loaded modfile may correspond to multiple loaded virtual modules
    lappend ::g_loadedModuleFiles($modfile) $mod

Original file line number	Diff line number	Diff line change
`@@ -1145,7 +1145,7 @@ proc isModuleRefreshQualified {mod} {`
`1145`	`1145`	`return $::g_loadedModulesRefresh($mod)`
`1146`	`1146`	`}`
`1147`	`1147`
`1148`		`-proc setLoadedModule {mod modfile uasked {modvr {}} refresh} {`
	`1148`	`+proc setLoadedModule {mod modfile uasked modvr refresh} {`
`1149`	`1149`	`set ::g_loadedModules($mod) $modfile`
`1150`	`1150`	`# a loaded modfile may correspond to multiple loaded virtual modules`
`1151`	`1151`	`lappend ::g_loadedModuleFiles($modfile) $mod`