GsDevKit/GsDevKit_home#321: a bit of a hack to avoid calling GsFile>>…

…print: when it isn't present ... simpler than trying to do it at package level
dalehenrich · Aug 17, 2021 · d5f54a6 · d5f54a6
1 parent 08a29a7
commit d5f54a6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/packages/tonel/SuperDoit-Core/SuperDoitExecution.class.st b/packages/tonel/SuperDoit-Core/SuperDoitExecution.class.st
@@ -361,9 +361,11 @@ SuperDoitExecution >> stdout [
 
 { #category : 'private' }
 SuperDoitExecution >> ston: anObject on: aStream [
-	(SuperDoitExecution globalNamed: #'STON')
-		ifNotNil: [ :ston | ston put: anObject onStreamPretty: aStream ]
-		ifNil: [ 
+	| stonClass |
+	((GsFile respondsTo: #'print:')
+		and: [ stonClass := SuperDoitExecution globalNamed: #'STON' ])
+		ifTrue: [ stonClass put: anObject onStreamPretty: aStream ]
+		ifFalse: [ 
 			"if STON is not present, then our best bet is to print the object"
 			aStream
 				nextPutAll: anObject printString;

diff --git a/rowan/project.ston b/rowan/project.ston
@@ -8,4 +8,4 @@ RwProjectSpecificationV2 {
 	#packageFormat : 'tonel',
 	#packageConvention : 'Monticello',
 	#comment : ''
-}
+}