some fixes

1987-10-19 10:06:24 +00:00
parent bf0ee1f16c
commit 67cf9c4933
5 changed files with 7 additions and 7 deletions
--- a/lang/m2/libm2/Strings.mod
+++ b/lang/m2/libm2/Strings.mod
@@ -53,7 +53,6 @@ PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx, len: CARDINAL);
   string are deleted.
 *)
 VAR	length: CARDINAL;
-	i : CARDINAL;
 BEGIN
 	IF len = 0 THEN RETURN; END;
 	length := Length(str);