[Help-smalltalk] [PATCH 2/2] stinst: Squeak does not like nil as category string use a string

[Holger Hans Peter Freyther]

From: Holger Hans Peter Freyther <address@hidden>

2012-10-06  Holger Freyther  <address@hidden>

        * SqueakExporter.st: Use 'as yet unclassified' as category string
        if it is nil.
---
 packages/stinst/parser/ChangeLog         |    5 +++++
 packages/stinst/parser/SqueakExporter.st |    7 +++++++
 2 files changed, 12 insertions(+)

diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog
index 58affee..9681f53 100644
--- a/packages/stinst/parser/ChangeLog
+++ b/packages/stinst/parser/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-06  Holger Freyther  <address@hidden>
+
+       * SqueakExporter.st: Use 'as yet unclassified' as category string
+       if it is nil.
+
 2012-10-02  Holger Freyther  <address@hidden>
 
        * GSTParser.st: Change GSTFileInParser>>#parseClassTag to parse
diff --git a/packages/stinst/parser/SqueakExporter.st 
b/packages/stinst/parser/SqueakExporter.st
index ac314f8..cf37505 100644
--- a/packages/stinst/parser/SqueakExporter.st
+++ b/packages/stinst/parser/SqueakExporter.st
@@ -69,4 +69,11 @@ OldSyntaxExporter subclass: SqueakSyntaxExporter [
 
        super fileOutClassDeclaration: aBlock
     ]
+
+    fileOutCategory: aString methods: methods class: aClass [
+        | cat |
+        "Pharo does not like 'nil' as category name pick something else."
+        cat := aString ifNil: ['as yet unclassified'].
+        ^super fileOutCategory: cat methods: methods class: aClass.
+    ]
 ]
-- 
1.7.10.4