postinit_commands: print error message if execution of specified commands fails

2024-04-16 00:17:02 +02:00 · 2024-04-16 00:17:02 +02:00 · 83f62bfdf9
parent 8d68beb914
commit 83f62bfdf9
1 changed files with 3 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -8157,7 +8157,9 @@ proc source_user_tcl_files {} {
 proc eval_postinit_commands {} {
  global postinit_commands
  if {[info exists postinit_commands]} {
-    catch {uplevel #0 $postinit_commands}
+    if {[catch {uplevel #0 $postinit_commands} res]} {
+      puts "executing $postinit_commands:\n\n$res"
+    }
  }
 }