--- 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$'
! !