SourceCodeCache.st
changeset 4293 6ad063b90b0f
parent 3438 2979da5dd5a3
--- a/SourceCodeCache.st	Thu Dec 07 10:56:03 2017 +0100
+++ b/SourceCodeCache.st	Mon Dec 18 10:13:40 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#SourceCodeCache
 	instanceVariableNames:''
 	classVariableNames:'Default'
@@ -76,7 +78,7 @@
     "Answers a stream for given class (stored in classFileName) at
      given revision. If the stream is not in the cache, then the
      block is called with the desired cached filename as an argument.
-     The block should return a stream (not necesarily on the filename
+     The block should return a stream (not necessarily on the filename
      passed)."
 
     | file stream |
@@ -85,10 +87,10 @@
         ^file readStream.
     ].
 
-    [ 
-        file directory recursiveMakeDirectory 
+    [
+        file directory recursiveMakeDirectory
     ] on: Error do:[:ex|
-        self error: 'Cannot make cache directory: ', ex description.        
+        self error: 'Cannot make cache directory: ', ex description.
     ].
     stream := block valueWithOptionalArgument: file.
     stream isNil ifTrue:[^nil].
@@ -110,6 +112,7 @@
     ^stream
 
     "Created: / 12-10-2011 / 09:58:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 18-12-2017 / 10:12:24 / mawalch"
 ! !
 
 !SourceCodeCache methodsFor:'private'!
@@ -141,10 +144,10 @@
 !SourceCodeCache class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.4 2014-02-05 17:51:43 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeCache.st,v 1.4 2014-02-05 17:51:43 cg Exp $'
+    ^ '$Header$'
 ! !