From cc64f88964bb19155b91cb01b8849b148aa36b8e Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 21 Mar 1988 18:15:59 +0000
Subject: [PATCH] adapted to new naming scheme

---
 lang/m2/libm2/Arguments.c | 4 ++--
 lang/m2/libm2/catch.c     | 4 ++--
 lang/m2/libm2/transfer.e  | 8 ++++----
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lang/m2/libm2/Arguments.c b/lang/m2/libm2/Arguments.c
index 036dae6d6..1a11e6d80 100644
--- a/lang/m2/libm2/Arguments.c
+++ b/lang/m2/libm2/Arguments.c
@@ -48,7 +48,7 @@ Arguments()
 }
 
 unsigned
-Arguments_Argv(n, argument, l, u, s)
+_Arguments_Argv(n, argument, l, u, s)
 	unsigned int u;
 	char *argument;
 {
@@ -58,7 +58,7 @@ Arguments_Argv(n, argument, l, u, s)
 }
 
 unsigned
-Arguments_GetEnv(name, nn, nu, ns, value, l, u, s)
+_Arguments_GetEnv(name, nn, nu, ns, value, l, u, s)
 	char *name, *value;
 	unsigned int nu, u;
 {
diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 5d7665f80..4e5b93ab6 100644
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -64,7 +64,7 @@ _catch(trapno)
 	while (ep->errno != trapno && ep->errmes != 0) ep++;
 	if (p = ep->errmes) {
 		while (*p) p++;
-		Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
+		_Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
 	}
 	else {
 		int i = trapno;
@@ -81,7 +81,7 @@ _catch(trapno)
 		while (i /= 10);
 		while (s > buf) *p++ = *--s;
 		*p = 0;
-		Traps_Message(q, 0, (int) (p - q), 1);
+		_Traps_Message(q, 0, (int) (p - q), 1);
 	}
 	if (trapno != M2_FORCH) exit(trapno);
 	SIG(_catch);
diff --git a/lang/m2/libm2/transfer.e b/lang/m2/libm2/transfer.e
index 65d693f25..b7d357a0c 100644
--- a/lang/m2/libm2/transfer.e
+++ b/lang/m2/libm2/transfer.e
@@ -57,11 +57,11 @@
  ; place in the stack. Therefore, in the runtime startoff a piece of the
  ; stack is allocated for coroutines.
 
- exp $SYSTEM_NEWPROCESS
- exp $SYSTEM_TRANSFER
+ exp $_SYSTEM_NEWPROCESS
+ exp $_SYSTEM_TRANSFER
  inp $_ChkSize
 
- pro $SYSTEM_NEWPROCESS, 0
+ pro $_SYSTEM_NEWPROCESS, 0
 
  ; This procedure only initializes the area used for saving the stack.
  ; Its definition is:
@@ -92,7 +92,7 @@
 _target
  bss EM_PSIZE, 0, 0
 
- pro $SYSTEM_TRANSFER, 0
+ pro $_SYSTEM_TRANSFER, 0
 
  ; This procedure does all the hard work.
  ; It must save the current environment, and restore the one to which the
-- 
2.34.1