From 83f62bfdf903a38f6f716edcc445df26927db00c Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 16 Apr 2024 00:17:02 +0200
Subject: [PATCH] postinit_commands: print error message if execution of
 specified commands fails

---
 src/xschem.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 6ef9ae6a..7e58356a 100644
--- 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"
+    }
   }
 }