---

yaml
---
r: 14020
b: refs/heads/try
c: 477714f
h: refs/heads/master
v: v3

Author: kevina

[refs]

@@ -2,5 +2,5 @@
 refs/heads/master: 61b1875c16de39c166b0f4d54bba19f9c6777d1a
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: 4a81779abd786ff22d71434c6d9a5917ea4cdfff
-refs/heads/try: 485e489ba2cb025bb84606396b1cea3023c8c99c
+refs/heads/try: 477714f08eec291bbcb8f41c5bf187ee5f016425
 refs/tags/release-0.1: 1f5c5126e96c79d22cb7862f75304136e204f105

branches/try/src/comp/syntax/ext/qquote.rs

@@ -2,7 +2,7 @@ import driver::session;
 
 import option::{none, some};
 
-import syntax::ast::{crate, expr_, expr_mac, mac_invoc, mac_qq};
+import syntax::ast::{crate, expr_, expr_mac, mac_invoc, mac_qq, mac_var};
 import syntax::fold::*;
 import syntax::ext::base::*;
 import syntax::ext::build::*;
@@ -29,6 +29,28 @@ fn expand_qquote(cx: ext_ctxt, sp: span, _e: @ast::expr) -> ast::expr_ {
     ret call.node;
 }
 
+fn replace(e: @ast::expr, repls: [@ast::expr]) -> @ast::expr {
+    let aft = default_ast_fold();
+    let f_pre = {fold_expr: bind replace_expr(repls, _, _, _,
+                                              aft.fold_expr)
+                 with *aft};
+    let f = make_fold(f_pre);
+    ret f.fold_expr(e);
+}
+
+fn replace_expr(repls: [@ast::expr],
+                e: ast::expr_, s: span, fld: ast_fold,
+                orig: fn@(ast::expr_, span, ast_fold)->(ast::expr_, span))
+    -> (ast::expr_, span)
+{
+    // note: nested enum matching will be really nice here so I can jusy say
+    //       expr_mac(mac_var(i))
+    alt e {
+      expr_mac({node: mac_var(i), _}) {let r = repls[i]; (r.node, r.span)}
+      _ {orig(e,s,fld)}
+    }
+}
+
 // Local Variables:
 // mode: rust
 // fill-column: 78;