--- a/SmalltalkChunkFileSourceWriter.st Thu May 14 12:06:39 2009 +0200
+++ b/SmalltalkChunkFileSourceWriter.st Thu May 14 14:29:31 2009 +0200
@@ -312,7 +312,13 @@
wanted := true
]
].
- wanted ifTrue:[interestingMethods add:aMethod].
+ wanted ifTrue:[
+ aMethod selector isSymbol ifTrue:[
+ interestingMethods add:aMethod
+ ] ifFalse:[
+ Transcript showCR:'skipping non-symbol method ',aMethod selector.
+ ].
+ ].
]
]
].
@@ -383,5 +389,5 @@
!SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.6 2009-05-14 10:03:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.7 2009-05-14 12:29:31 cg Exp $'
! !