瀏覽代碼

Unified error propagation

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7549 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 年之前
父節點
當前提交
7fa5ecdea7
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      source/Release.Mod

+ 2 - 0
source/Release.Mod

@@ -3377,6 +3377,8 @@ BEGIN
 			context.error.String('Usage: Release.Build [options] BuildName'); context.error.Ln;
 			context.error.String('Usage: Release.Build [options] BuildName'); context.error.Ln;
 			context.result := Commands.CommandParseError;
 			context.result := Commands.CommandParseError;
 		END;
 		END;
+	ELSE
+		context.result := Commands.CommandParseError;
 	END;
 	END;
 END Build;
 END Build;