fixed protected f9 classes

doc/CHANGES.txt

@@ -15,6 +15,7 @@
 	added neko.Lib.lazyLoad and improved neko.net.Poll for Neko 1.6.1
 	prevented static fields in interfaces
 	added neko.Sys.cpuTime()
+	fix for protected as3 classes
 
 2008-01-13: 1.17
 	fixed Int32.compare, added Int32.read and Int32.write

genswf.ml

@@ -58,10 +58,7 @@ let getclass i =
 	if Array.length i.hls_fields <> 1 then
 		None
 	else match i.hls_fields.(0).hlf_kind with
-	| HFClass c ->
-		Some (match c.hlc_name with
-			| HMPath (pack,name) -> pack,name
-			| _ -> assert false)
+	| HFClass { hlc_name = HMPath (pack,name) } -> Some (pack,name)
 	| _ ->
 		None