From d5f54a676d6d8bdd4ad9cd5b09d6dd913a113ed9 Mon Sep 17 00:00:00 2001 From: Dale Henrichs Date: Tue, 17 Aug 2021 16:43:58 -0700 Subject: [PATCH] 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 --- packages/tonel/SuperDoit-Core/SuperDoitExecution.class.st | 8 +++++--- rowan/project.ston | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/packages/tonel/SuperDoit-Core/SuperDoitExecution.class.st b/packages/tonel/SuperDoit-Core/SuperDoitExecution.class.st index d49c827..dafb81d 100644 --- 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 index 7ad49da..6bb972e 100644 --- a/rowan/project.ston +++ b/rowan/project.ston @@ -8,4 +8,4 @@ RwProjectSpecificationV2 { #packageFormat : 'tonel', #packageConvention : 'Monticello', #comment : '' -} +} \ No newline at end of file