parse: let autocast peeks detect deeper pretty-prints

It already noticed "(expr)$" but "(expr)$$" should be valid too.

diff --git a/parse.cxx b/parse.cxx
index 78f6eae3ea5f9f39d721aa5e1b99d53322a8f2de..3d876b66c560c1e03846556cdd746d8c3e1ce262 100644 (file)
--- a/parse.cxx
+++ b/parse.cxx
@@ -3805,8 +3805,11 @@ expression* parser::parse_perf_op (const token* t)
 bool
 parser::peek_target_symbol_components ()
 {
-  return peek_op ("->") || peek_op ("[")
-    || tok_is (peek (), tok_identifier, "$");
+  const token * t = peek ();
+  return t &&
+    ((t->type == tok_operator && (t->content == "->" || t->content == "["))
+     || (t->type == tok_identifier &&
+         t->content.find_first_not_of('$') == string::npos));
 }
 
 void