OSDN Git Service

[UPDATE] remove blank line
authormzp <mzpppp@gmail.com>
Sun, 2 Nov 2008 09:46:19 +0000 (18:46 +0900)
committermzp <mzpppp@gmail.com>
Sun, 2 Nov 2008 09:46:19 +0000 (18:46 +0900)
src/closuretrans.ml
src/codegen.ml

index 3817a94..d92c79a 100644 (file)
@@ -6,7 +6,7 @@ type 'a set = 'a Set.t
 
 let set_of_list xs =
   List.fold_left (flip Set.add) Set.empty xs
-  
+
 let union xs =
   List.fold_left Set.union Set.empty xs
 
index 3f4b3f3..75592cb 100644 (file)
@@ -43,7 +43,6 @@ let arguments_self args f =
     f ({empty_env with binding = b }) args' in
     code
 
-
 let let_scope {depth=n; binding=binding} vars f =
   let env' =
     {depth  = n+1;
@@ -106,7 +105,6 @@ let define_class name ({sname=super; cname=cname} as klass) env =
     Swap;
     InitProperty cname]
 
-
 let var_ref var env =
   let qname = 
     make_qname var in
@@ -338,3 +336,4 @@ let generate program =
       classes=class_info; 
       instances=instance_info;
       script=[{Abc.init=0; trait_s=traits_class }]}
+