Fixed typo

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8539 8c9fc860-2736-0410-a75d-ab315db34111

source/IO64.Streams.Mod

@@ -119,7 +119,7 @@ TYPE
 		VAR n: SIZE;
 		BEGIN
 			LOOP
-				n := LEN( buf ) - tail; (* space available in hte internal buffer *)
+				n := LEN( buf ) - tail; (* space available in the internal buffer *)
 				IF n = 0 THEN
 					IF res = Ok THEN  (* send current buffer *)
 						send( buf^, 0, tail, FALSE, res );

source/Streams.Mod

@@ -26,7 +26,7 @@ TYPE
 
 TYPE
 	Position* = LONGINT; (* position in the stream *)
-	StreamSize* = LONGINT; (* size of hte stream *)
+	StreamSize* = LONGINT; (* size of the stream *)
 
 	(** Any stream output procedure or method. *)
 	Sender* = PROCEDURE {DELEGATE} ( CONST buf: ARRAY OF CHAR;  ofs, len: LONGINT;  propagate: BOOLEAN;  VAR res: WORD );

source/Streams64.Mod

@@ -26,7 +26,7 @@ TYPE
 
 TYPE
 	Position* = HUGEINT; (* position in the stream *)
-	StreamSize* = HUGEINT; (* size of hte stream *)
+	StreamSize* = HUGEINT; (* size of the stream *)
 
 	(** Any stream output procedure or method. *)
 	Sender* = PROCEDURE {DELEGATE} ( CONST buf: ARRAY OF CHAR;  ofs, len: BufferOffset;  propagate: BOOLEAN;  VAR res: WORD );