fixed previously introduced error

diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index bd0c5ed..12662b6 100644 (file)
--- a/lang/m2/comp/Version.c
+++ b/lang/m2/comp/Version.c
@@ -1 +1 @@
-static char Version[] = "ACK Modula-2 compiler Version 0.39";
+static char Version[] = "ACK Modula-2 compiler Version 0.40";

diff --git a/lang/m2/comp/expression.g b/lang/m2/comp/expression.g
index 02f7f1b..9f8bf0d 100644 (file)
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -250,7 +250,7 @@ element(register t_node *nd;) :
                expression(&(nd->nd_right->nd_right))
        |
        ]
-                       { nd->nd_right = dot2node(Link, nd, NULLNODE);
+                       { nd->nd_right = dot2node(Link, nd->nd_right, NULLNODE);
                          nd->nd_right->nd_symb = ',';
                        }
 ;