mercurial/HGWorkingCopyFile.st
changeset 140 feab684bc4dc
parent 138 c66a831e131b
child 142 67e8c5ab8db2
--- a/mercurial/HGWorkingCopyFile.st	Thu Dec 06 01:28:14 2012 +0000
+++ b/mercurial/HGWorkingCopyFile.st	Thu Dec 06 04:07:46 2012 -0800
@@ -60,9 +60,13 @@
 !
 
 revisions
-    | path |
+    | path pathS |
 
     path := self pathNameRelative.
+    pathS := OperatingSystem isMSWINDOWSlike 
+                ifTrue:[path copyReplaceAll:$\ with: $/]
+                ifFalse:[path].
+
 
     revisions isNil ifTrue:[
         | old p |
@@ -70,7 +74,7 @@
                         workingDirectory: wc pathName;
                         path: path;
                         execute.
-        p := path.
+        p := pathS.
         old := old collect: [:id| 
             | cs f |
 
@@ -89,10 +93,11 @@
     ].
     "/older revisions are cached, newer not since this may change...
 
-    ^((wc changeset / path) newer:true) , revisions
+    ^((wc changeset / pathS) newer:true) , revisions
 
     "Created: / 05-12-2012 / 19:09:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-12-2012 / 00:28:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-12-2012 / 03:50:58 / jv"
 !
 
 status