Report unload depun warning locally

Dependent unload mechanism is only triggered from top level evaluation. So dependent unload warnings were already only emitted to the top level message block.
2026-06-18 00:06:53 +08:00 · 2023-12-31 13:52:38 +01:00
parent 75ffc8572e
commit 5595bbfc5c
1 changed files with 1 additions and 1 deletions
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -1642,7 +1642,7 @@ proc cmdModuleUnload {context match auto force onlyureq onlyndep args} {
                        loaded $unmod] failed"
                     ##nagelfar ignore Found constant
                     if {[getState force] || $force} {
-                        reportWarning $errMsg 1
+                        reportWarning $errMsg
                     } else {
                        knerror $errMsg
                     }