Java.st
changeset 3196 d617b4590431
parent 3098 ebf6ad1545af
child 3214 c38fcee7b0da
--- a/Java.st	Mon Aug 04 15:43:51 2014 +0100
+++ b/Java.st	Mon Aug 04 16:13:14 2014 +0100
@@ -762,15 +762,16 @@
 !Java class methodsFor:'paths-accessing'!
 
 cacheDirectory
-
-    CacheDirectory ifNil:[
-	CacheDirectory := Filename homeDirectory / '.smalltalk' / 'libjava' / 'caches' /
-	    (((Smalltalk at:#stx_libjava) svnRepositoryUrlBase copyReplaceAll:$/ with:$_) replaceAll:$: with:$_)
+    CacheDirectory isNil ifTrue:[
+        CacheDirectory := Filename homeDirectory / '.smalltalk' / 'libjava' 
+                / 'caches' 
+                    / (((Smalltalk at:#'stx_libjava') svnRepositoryUrlBase copyReplaceAll:$/
+                            with:$_) replaceAll:$: with:$_)
     ].
-    ^CacheDirectory
+    ^ CacheDirectory
 
     "Created: / 08-04-2011 / 15:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-04-2011 / 16:58:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2014 / 15:53:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 classPath
@@ -857,10 +858,13 @@
 !
 
 javaHome
-    ^ JavaHome ifNil:[Release javaHome]
+    JavaHome isNil ifTrue:[
+        ^ Release javaHome
+    ].
+    ^ JavaHome
 
     "Created: / 06-08-1997 / 00:53:19 / cg"
-    "Modified: / 22-11-2010 / 12:39:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2014 / 16:01:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 javaHome:aPath