Error handling

1 files changed, 12 insertions, 2 deletions

diff --git a/iclm b/iclm
index 6931d59..0b49881 100755
--- a/iclm
+++ b/iclm
@@ -62,16 +62,26 @@ proc tryCompile { } {
 	expect {
 		  -re "Error \\\[.*\\\]: (.*)\.dcl could not be imported" {
 			tryImport $expect_out(1,string)
+			return
 		} -re "Can't find (.*)\.icl" {
 			tryImport $expect_out(1,string)
+			return
 		} "Nonrepresentable section on output" {
 			set args "$args -l -no-pie"
 			feedback "info" "Using -l -no-pie."
 			tryCompile
-		} eof {
-			feedback "success" "Done."
+			return
 		}
 	}
+
+	catch wait reason
+	if {[lindex $reason 3] == 0} {
+		feedback "success" "Done building."
+	} else {
+		feedback "error" "Errors, see transcript."
+	}
+
+	exit [lindex $reason 3]
 }
 
 tryCompile