From 7b548e71806b735a215f7dba26a20771c4f924bd Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Fri, 12 Jul 2013 18:35:05 -0700
Subject: [PATCH] expose mtwt_marksof for testing

---
 src/libsyntax/ast_util.rs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/libsyntax/ast_util.rs b/src/libsyntax/ast_util.rs
index 57a0e12ec2f..3043d087a15 100644
--- a/src/libsyntax/ast_util.rs
+++ b/src/libsyntax/ast_util.rs
@@ -979,6 +979,11 @@ pub fn resolve_internal(id : Ident,
 }
 
 /// Compute the marks associated with a syntax context.
+pub fn mtwt_marksof(ctxt: SyntaxContext, stopname: Name) -> ~[Mrk] {
+    marksof(ctxt, stopname, get_sctable())
+}
+
+// the internal function for computing marks
 // it's not clear to me whether it's better to use a [] mutable
 // vector or a cons-list for this.
 pub fn marksof(ctxt: SyntaxContext, stopname: Name, table: &SCTable) -> ~[Mrk] {