suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix substring

Browse Source 
svn: r13920
This commit is contained in:
Sam Tobin-Hochstadt 2009-03-03 19:33:09 +00:00
parent 089c5363e7
commit 4cf824cbb0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/repos-time-stamp/stamp.ss
View File

@ -4,7 +4,7 @@
(string-append "2mar2009 " (string-append "2mar2009 "
(let ([s "$URL$"]) (let ([s "$URL$"])
(substring (substring
s 0 s 6
(- (string-length s) (- (string-length s)
(string-length (string-length
"collects/repos-time-stamp/stamp.ss")))))) "collects/repos-time-stamp/stamp.ss $"))))))