浏览代码

avoid too many line breaks / empty commands

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6961 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 年之前
父节点
当前提交
be5c50c829
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/Shell.Mod

+ 1 - 1
source/Shell.Mod

@@ -218,7 +218,7 @@ TYPE
 
 
 					IF IsControlCharacter(ch) OR (ch = Delete) THEN
 					IF IsControlCharacter(ch) OR (ch = Delete) THEN
 
 
-						IF (ch = CR) OR (ch = LF) OR (ch = Streams.EOT) OR (context.in.res # Streams.Ok) THEN
+						IF (* (ch = CR) OR*)  (ch = LF) OR (ch = Streams.EOT) OR (context.in.res # Streams.Ok) THEN
 							EXIT
 							EXIT
 
 
 						ELSIF (ch = Backspace) OR (ch = Delete)THEN
 						ELSIF (ch = Backspace) OR (ch = Delete)THEN