From: ceriel <none@none>
Date: Mon, 20 Mar 1989 13:03:34 +0000 (+0000)
Subject: use value parameters when VAR not needed
X-Git-Tag: release-5-5~2492
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=346bc839a3a1f59301c1ced99068cc7de6510261;p=ack.git

use value parameters when VAR not needed
---

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 743e4417b..223eb9fc3 100644
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@@ -67,7 +67,7 @@ IMPLEMENTATION MODULE InOut ;
 	openinput(filename);
   END OpenInputFile;
 
-  PROCEDURE openinput(VAR namebuf: ARRAY OF CHAR);
+  PROCEDURE openinput(namebuf: ARRAY OF CHAR);
   BEGIN
 	IF (namebuf[0] = '-') AND (namebuf[1] = 0C) THEN
 		CurrIn := Streams.InputStream;
@@ -106,7 +106,7 @@ IMPLEMENTATION MODULE InOut ;
 	openoutput(filename);
   END OpenOutputFile;
 
-  PROCEDURE openoutput(VAR namebuf: ARRAY OF CHAR);
+  PROCEDURE openoutput(namebuf: ARRAY OF CHAR);
   BEGIN
 	IF (namebuf[1] = '-') AND (namebuf[2] = 0C) THEN
 		CurrOut := Streams.OutputStream;