Permalink
Browse files

Fix a bug when lifting Func AST nodes which was truncating the AST of…

… functions.
  • Loading branch information...
1 parent 29373c7 commit e5de2175d978934bfb76b7e11a7cc6612f26a6b3 @samoht committed Nov 30, 2010
Showing with 2 additions and 2 deletions.
  1. +1 −1 pa_lib/cass_ast.ml
  2. +1 −1 pa_lib/cass_parser.ml
View
2 pa_lib/cass_ast.ml
@@ -64,7 +64,7 @@ let rec meta_t _loc = function
| Fun (a,b) ->
let name = get_string _loc (meta_t _loc a) in
- let args = get_exprs _loc (meta_t _loc a) in
+ let args = get_exprs _loc (meta_t _loc b) in
<:expr< Css.Exprs [[Css.Fun ($name$, $args$) ]] >>
| Comma (a,b) ->
View
2 pa_lib/cass_parser.ml
@@ -230,7 +230,7 @@ let rec elt tokens =
seek 2 tokens;
let exprs = exprs tokens in
expect RIGHT tokens;
- ef ") ";
+ ef ") << %s >>" (Cass_printer.to_string exprs);
Fun(String s1, exprs)
| [STRING s; _; _ ] ->
ef "%s " s;

0 comments on commit e5de217

Please sign in to comment.