--- a/mercurial/HGRepository.st Wed Mar 23 19:53:12 2016 +0100
+++ b/mercurial/HGRepository.st Wed Mar 23 19:56:54 2016 +0100
@@ -192,24 +192,20 @@
Currently, it searches for the presence of .hg directory"
- | f |
+ | f parent |
f := aStringOrFilename.
f isDirectory ifFalse:[
f := f directory
].
- 'h1' errorPrintCR.
[ ( f / '.hg' ) exists ] whileFalse:[
f pathName errorPrintCR.
- f isRootDirectory ifTrue:[
- 'hX' errorPrintCR.
- ^ nil
- ].
- f := f directory.
- 'directory ' errorPrint. f errorPrintCR.
+ f isRootDirectory ifTrue:[^ nil].
+ parent := f directory.
+ parent pathName = f pathName ifTrue:[^ nil].
+ f := parent.
].
- 'h2' errorPrintCR.
- ^f
+ ^ f
"Created: / 13-11-2012 / 22:34:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 14-11-2012 / 00:02:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"