--- a/compiler/PPCInliningVisitor.st Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCInliningVisitor.st Mon Aug 17 12:56:02 2015 +0100
@@ -104,10 +104,13 @@
!
visitTokenConsumeNode: node
- super visitTokenConsumeNode: node.
+ "super visitTokenConsumeNode: node."
+
node name isNil ifTrue: [
- self markForInline: node
+ self flag: 'temporarily disabled'.
+ "self markForInline: node"
].
+
^ node
!
@@ -126,8 +129,12 @@
!
visitTokenizingParserNode: node
- self visit: node tokenizer.
+ "skip tokens"
+ "skip whitespace"
+ "self visit: node whitespace."
+
self visit: node parser.
+
^ node
! !