from Nicolas Pouillard <ertai@lrde.epita.fr>

	* src/pack-esdf/pack-esdf.str: Call sdf-desugar when the out format 
	is ast.

esdf/ChangeLog

+2004-05-04  Nicolas Pouillard  <ertai@lrde.epita.fr>
+
+	* src/pack-esdf/pack-esdf.str: Call sdf-desugar when the out format 
+	is ast.
+
 2004-05-04  Clement Vasseur  <clement.vasseur@lrde.epita.fr>
 
 	* configure.ac: Add check for strc.

esdf/src/pack-esdf/pack-esdf.str

@@ -44,13 +44,16 @@ strategies
       , !"-s g|--syntax g  Use syntax g, default Sdf2"
     )
 
+  sdf-desugar =
+    xtc-transform(!"sdf-desugar", pass-verbose)
+
   pack-esdf =
     xtc-io-wrap(pack-options + of-option,
       pack-sdf(|<include-path>) => (files, spec)
     ; <maybe-create-depfile> files
     ; <write-to> spec
     ; (  where(of-config => "txt")   < xtc-asfix-yield
-      +  where(of-config => "ast")   < xtc-implode-asfix
+      +  where(of-config => "ast")   < (xtc-implode-asfix ; sdf-desugar)
       +  where(of-config => "asfix")
          <+ <fatal-error> ["pack-esdf: ", <id>, " is not a valid output format."]
       )