MCFileBasedRepository.st
changeset 971 dd20ed7b6a1c
parent 942 42b8193def1a
--- a/MCFileBasedRepository.st	Mon Feb 09 14:57:08 2015 +0100
+++ b/MCFileBasedRepository.st	Mon Feb 09 14:57:21 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 MCRepository subclass:#MCFileBasedRepository
 	instanceVariableNames:'cache allFileNames'
 	classVariableNames:''
@@ -156,19 +158,22 @@
 !
 
 possiblyNewerVersionsOfAnyOf: someVersions
-	| pkgs |
-	pkgs := Dictionary new.
+        | pkgs |
+        pkgs := Dictionary new.
 
-	someVersions do: [:aVersionInfo |
-		pkgs at: (aVersionInfo name copyUpToLast: $-)
-			put: (aVersionInfo name copyAfterLast: $.) asNumber].
+        someVersions do: [:aVersionInfo |
+                pkgs at: (aVersionInfo name copyUpToLast: $-)
+                        put: (aVersionInfo name copyAfterLast: $.) asNumber].
 
-	^[self allVersionNames select: [:each |
-		(pkgs at: (each copyUpToLast: $-) ifPresent: [:verNumber |
-			verNumber < (each copyAfterLast: $.) asNumber
-				or: [verNumber = (each copyAfterLast: $.) asNumber
-					and: [someVersions noneSatisfy: [:v | v name = each]]]]) == true]
-	] on: Error do: [:ex | ex return: #()]
+        ^[
+            self allVersionNames select: [:each |
+                (pkgs at: (each copyUpToLast: $-) ifPresent: [:verNumber |
+                        verNumber < (each copyAfterLast: $.) asNumber
+                                or: [verNumber = (each copyAfterLast: $.) asNumber
+                                        and: [someVersions noneSatisfy: [:v | v name = each]]]]) == true]
+        ] on: Error do: [:ex | 
+            ex return: #()
+        ]
 !
 
 readableFileNames
@@ -200,14 +205,14 @@
 !MCFileBasedRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+    ^ '$Id: MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
 ! !