From 18e33c2ce1ae9f704184c00396153eada6954725 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sun, 17 Jan 2010 05:18:13 +0000
Subject: [PATCH] Exported source->name function.

svn: r17689
---
 collects/scheme/contract/private/helpers.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/contract/private/helpers.ss b/collects/scheme/contract/private/helpers.ss
index cfd0e3363b..e666344253 100644
--- a/collects/scheme/contract/private/helpers.ss
+++ b/collects/scheme/contract/private/helpers.ss
@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(provide unpack-blame build-src-loc-string 
+(provide unpack-blame build-src-loc-string source->name
          mangle-id mangle-id-for-maker
          build-struct-names
          lookup-struct-info