Fixed NoDelay()

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

source/Unix.Sockets.Mod

@@ -369,7 +369,7 @@ VAR
 		err: LONGINT;
 	BEGIN
 		IF enable THEN  opt.onoff := 1  ELSE  opt.onoff := 0  END;  
-		err := setsockopt( s, Unix.SoLSocket, Unix.SoNoDelay, opt, SIZE OF Switch );
+		err := setsockopt( s, Unix.IpProtoTCP, Unix.SoNoDelay, opt, SIZE OF Switch );
 		IF err # 0 THEN  Unix.Perror(  "Sockets.NoDelay (setsockopt)" )  END;
 		RETURN err = 0 
 	END NoDelay;