---

yaml
---
r: 13515
b: refs/heads/master
c: d03c04b
h: refs/heads/master
i:
  13513: 0cc86c1
  13511: 55a4083
v: v3

Author: paulstansifer

[refs]

@@ -1,5 +1,5 @@
 ---
-refs/heads/master: 2f8be7dcbb7c5e507051210839e8b58e95d32887
+refs/heads/master: d03c04b6ead225860b21b3540681a2ba58b220df
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: 4a81779abd786ff22d71434c6d9a5917ea4cdfff
 refs/heads/try: 2898dcc5d97da9427ac367542382b6239d9c0bbf

trunk/src/libsyntax/parse/lexer.rs

@@ -4,7 +4,7 @@ import diagnostic;
 import ast::{tt_delim,tt_flat};
 
 export reader, string_reader, new_string_reader, is_whitespace;
-export tt_reader,  new_tt_reader;
+export tt_reader,  new_tt_reader, dup_tt_reader;
 export nextch, is_eof, bump, get_str_from;
 export string_reader_as_reader, tt_reader_as_reader;
 
@@ -49,6 +49,22 @@ fn new_tt_reader(span_diagnostic: diagnostic::span_handler,
     ret r;
 }
 
+pure fn dup_tt_frame(&&f: tt_frame) -> tt_frame {
+    @{readme: f.readme, mut idx: f.idx,
+      up: alt f.up {
+        tt_frame_up(o_f) {
+          tt_frame_up(option::map(o_f, dup_tt_frame))
+        }
+      }
+     }
+}
+
+pure fn dup_tt_reader(&&r: tt_reader) -> tt_reader {
+    @{span_diagnostic: r.span_diagnostic, interner: r.interner,
+      mut cur: dup_tt_frame(r.cur),
+      mut cur_tok: r.cur_tok, mut cur_chpos: r.cur_chpos}
+}
+
 type string_reader = @{
     span_diagnostic: diagnostic::span_handler,
     src: @str,