Tcl exception codes cleanup, shutdown command amendments

[openocd] / src / flash / startup.tcl

diff --git a/src/flash/startup.tcl b/src/flash/startup.tcl
index 7a96a3e3b8496dd14bccb2de3fe999f2cebc5bf8..fbb8d8ee498249538aed598e186e31a1404479a3 100644 (file)
--- a/src/flash/startup.tcl
+++ b/src/flash/startup.tcl
@@ -8,8 +8,8 @@
 
 proc program_error {description exit} {
        if {$exit == 1} {
-               echo $description
-               shutdown
+               echo $description
+               shutdown error
        }
 
        error $description