[paparazzi-commits] [5451] working ocaml

[Christophe De Wagter]

Revision: 5451
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=5451
Author:   dewagter
Date:     2010-08-18 09:34:16 +0000 (Wed, 18 Aug 2010)
Log Message:
-----------
working ocaml

Modified Paths:
--------------
    paparazzi3/trunk/sw/tools/gen_aircraft.ml

Modified: paparazzi3/trunk/sw/tools/gen_aircraft.ml
===================================================================
--- paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-18 09:24:27 UTC (rev 
5450)
+++ paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-18 09:34:16 UTC (rev 
5451)
@@ -165,13 +165,13 @@
             fprintf makefile_ac "include $(CFG_%s)/%s_%s.makefile\n" 
              (String.uppercase(Xml.attrib tag "name"))
              (Xml.attrib c "name") (Xml.attrib c "type");
-            let print_if_subsystem_define = (fun c ->
-              if ExtXml.tag_is c "define" then begin
+            let print_if_subsystem_define = (fun d ->
+              if ExtXml.tag_is d "define" then begin
                 fprintf makefile_ac "%s = %s\n"
-                (String.uppercase(Xml.attrib c "name"))
-                (Xml.attrib c "value");
+                (String.uppercase(Xml.attrib d "name"))
+                (Xml.attrib d "value");
               end) in
-            List.iter print_if_subsystem_define (Xml.children tag)
+            List.iter print_if_subsystem_define (Xml.children c)
           end) in
        List.iter print_if_subsystem (Xml.children tag)
       with _ -> () end;