From 312c45f8054bdf96e1bc1989d24618b1150ac7cd Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 17 Oct 2017 09:54:18 +0200
Subject: Resolve #2: remove .icl when accidentally added

---
 iclm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/iclm b/iclm
index db44775..41f8376 100755
--- a/iclm
+++ b/iclm
@@ -63,6 +63,13 @@ proc tryCompile { } {
 		  -re "Error .*?: (.*)\.dcl could not be imported" {
 			tryImport $expect_out(1,string)
 			return
+		} -re "Can't find (.*)\.icl\.icl" {
+			set argv [lmap arg $argv {
+				regsub -- {.icl} $arg {} arg
+				set arg
+			}]
+			tryCompile
+			return
 		} -re "Can't find (.*)\.icl" {
 			tryImport $expect_out(1,string)
 			return
-- 
cgit v1.2.3