Remove underlyingStream

ApptiveGrid · Nov 16, 2023 · ed9d5c5 · ed9d5c5
1 parent 1564a0b
commit ed9d5c5
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 6 deletions.
diff --git a/src/Soil-Core/SoilJournalFragmentFile.class.st b/src/Soil-Core/SoilJournalFragmentFile.class.st
@@ -174,7 +174,7 @@ SoilJournalFragmentFile >> transactionJournals [
 	self stream position: self dataPosition.
 	transactionJournals := OrderedDictionary new.
 	[ stream atEnd ] whileFalse: [  
-		entry := SoilJournalEntry readFrom: stream underlyingStream.
+		entry := SoilJournalEntry readFrom: stream.
 		entry isTransactionEntry ifTrue: [ 
 			(transactionJournals 
 				at: entry transactionId

diff --git a/src/Soil-File/SoilLockableStream.class.st b/src/Soil-File/SoilLockableStream.class.st
@@ -103,6 +103,14 @@ SoilLockableStream >> next: anInteger [
 	^ fileStream next: anInteger 
 ]
 
+{ #category : #'reading - basic' }
+SoilLockableStream >> nextLengthEncodedInteger [
+	| value |
+	value := self next.
+	(value < 128) ifTrue: [ ^ value ].
+	^ (self nextLengthEncodedInteger bitShift: 7) bitOr: (value bitAnd: 127)
+]
+
 { #category : #writing }
 SoilLockableStream >> nextPut: anInteger [ 
 	fileStream nextPut: anInteger
@@ -149,11 +157,6 @@ SoilLockableStream >> size [
 	^ fileStream size
 ]
 
-{ #category : #'as yet unclassified' }
-SoilLockableStream >> underlyingStream [ 
-	^ fileStream 
-]
-
 { #category : #locking }
 SoilLockableStream >> unlockFrom: from to: to for: lockContext [