From 346bc839a3a1f59301c1ced99068cc7de6510261 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 20 Mar 1989 13:03:34 +0000
Subject: [PATCH] use value parameters when VAR not needed

---
 lang/m2/libm2/InOut.mod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;