stamp shows branch

svn: r13919
2009-03-03 19:31:30 +00:00 · 2009-03-03 19:31:30 +00:00 · 089c5363e7
commit 089c5363e7
parent eaf15594c0
1 changed files with 10 additions and 1 deletions
--- 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"))))))