Explorar o código

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 %!s(int64=8) %!d(string=hai) anos
pai
achega
be5c50c829
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      source/Shell.Mod

+ 1 - 1
source/Shell.Mod

@@ -218,7 +218,7 @@ TYPE
 
 					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
 
 						ELSIF (ch = Backspace) OR (ch = Delete)THEN