author | Claus Gittinger <cg@exept.de> |
Wed, 29 Jul 2015 13:07:27 +0200 | |
changeset 3492 | 0d8154dbdc2b |
parent 3490 | 5492e5b06400 |
child 3493 | 4570371765c6 |
MIMETypes.st | file | annotate | diff | comparison | revisions |
--- a/MIMETypes.st Fri Jul 24 13:20:00 2015 +0200 +++ b/MIMETypes.st Wed Jul 29 13:07:27 2015 +0200 @@ -1361,12 +1361,12 @@ commentSpec notNil ifTrue:[ ^ commentSpec ]. - - commentSpec := SuffixToCommentStringMapping at:suff ifAbsent:nil. - commentSpec notNil ifTrue:[ - ^ commentSpec + suff notNil ifTrue:[ + commentSpec := SuffixToCommentStringMapping at:suff ifAbsent:nil. + commentSpec notNil ifTrue:[ + ^ commentSpec + ]. ]. - ^ alternativeBlockReturningCommentString value "