SyntaxHighlighter2.st
changeset 14489 1b8f51cfd187
parent 14384 a0021df16c3b
child 15446 d4cda7a1df4e
--- a/SyntaxHighlighter2.st	Tue Jun 10 22:11:03 2014 +0200
+++ b/SyntaxHighlighter2.st	Fri Jun 13 12:25:17 2014 +0200
@@ -496,7 +496,7 @@
 
                 "/ self warning:'receiver is constant; arg',indexOfArgNotExecuted printString,' is never executed' position:pos1 to:tokenPosition.
                 argIsNotExecuted := expr args at:indexOfArgNotExecuted.
-                argIsNotExecuted isBlockNode ifTrue:[
+                argIsNotExecuted realNode isBlockNode ifTrue:[
                     self markCommentFrom:argIsNotExecuted startPosition to:argIsNotExecuted endPosition.
                 ].
             ].
@@ -815,7 +815,7 @@
 
                 "/ self warning:'receiver is constant; arg',indexOfArgNotExecuted printString,' is never executed' position:pos1 to:tokenPosition.
                 argIsNotExecuted := expr args at:indexOfArgNotExecuted.
-                argIsNotExecuted isBlockNode ifTrue:[
+                argIsNotExecuted realNode isBlockNode ifTrue:[
                     self markCommentFrom:argIsNotExecuted startPosition to:argIsNotExecuted endPosition.
                 ].
             ].
@@ -1065,14 +1065,14 @@
 !SyntaxHighlighter2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.22 2014-05-21 22:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.23 2014-06-13 10:25:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.22 2014-05-21 22:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.23 2014-06-13 10:25:17 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SyntaxHighlighter2.st,v 1.22 2014-05-21 22:25:58 cg Exp $'
+    ^ '$Id: SyntaxHighlighter2.st,v 1.23 2014-06-13 10:25:17 cg Exp $'
 ! !