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

Author: dalehenrich

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;

rowan/project.ston

@@ -8,4 +8,4 @@ RwProjectSpecificationV2 {
 	#packageFormat : 'tonel',
 	#packageConvention : 'Monticello',
 	#comment : ''
-}
+}