From 089c5363e7e1990667c908864e0086b443637b33 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 3 Mar 2009 19:31:30 +0000
Subject: [PATCH] stamp shows branch

svn: r13919
---
 collects/repos-time-stamp/stamp.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.ss
index 2f7a99d275..8aab08c2e7 100644
--- a/collects/repos-time-stamp/stamp.ss
+++ b/collects/repos-time-stamp/stamp.ss
@@ -1 +1,10 @@
-#lang scheme/base (provide stamp) (define stamp "2mar2009")
+#lang scheme/base
+(provide stamp) 
+(define stamp
+  (string-append "2mar2009 "
+		 (let ([s "$URL$"])
+		   (substring 
+		    s 0
+		    (- (string-length s)
+		       (string-length
+			"collects/repos-time-stamp/stamp.ss"))))))