# HG changeset patch
# User jwe
# Date 813245502 0
# Node ID b1ba1894bccc46729a18ffe3e9dfcf24e8a5f05b
# Parent  539c43aa46e500c693caaadfda926558b7a759f5
[project @ 1995-10-09 13:31:42 by jwe]

diff --git a/src/lex.l b/src/lex.l
--- a/src/lex.l
+++ b/src/lex.l
@@ -1203,6 +1203,8 @@
 // is an acceptable change.  It would be quite a bit harder to `fix'
 // this.  (Well, maybe not.  the best fix would be to do away with the
 // specialness of whitespace inside of `[ ... ]').
+//
+// However, we still do check for `.+', `.*', etc.
 
 static int
 next_token_is_bin_op (int spc_prev, char *yytext)
@@ -1223,6 +1225,14 @@
       }
       break;
 
+    case '.':
+      {
+	int c1 = yyinput ();
+	yyunput (c1, yytext);
+	bin_op = match_any (c1, "+-*/\\^");
+      }
+      break;
+
     case '/':
     case ':':
     case '\\':