class: MIMETypes
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jul 2015 13:07:27 +0200
changeset 3492 0d8154dbdc2b
parent 3490 5492e5b06400
child 3493 4570371765c6
class: MIMETypes changed: #commentStringsForMimeType:suffix:ifUnknown:
MIMETypes.st
--- 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
 
     "