Парсер не выдает ошибку при повторном добавлении команды fix #9

Author: artbear

src/cmdline.os

@@ -56,7 +56,12 @@
 
 Процедура ДобавитьКоманду(Знач ОписаниеКоманды) Экспорт
 
-	мКоманды.Вставить(ОписаниеКоманды.Команда, ОписаниеКоманды);
+	ИмяКоманды = ОписаниеКоманды.Команда;
+	Если мКоманды.Получить(ИмяКоманды) <> Неопределено Тогда
+		ВызватьИсключение СтрШаблон("Команда <%1> уже добавлена ранее, повторное добавление является ошибкой!", ИмяКоманды);
+	КонецЕсли;
+
+	мКоманды.Вставить(ИмяКоманды, ОписаниеКоманды);
 
 КонецПроцедуры