s/od;/end do;/

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@519 f88db872-0e4f-0410-b76b-b9085cfa78c5

2 files changed, 2 insertions, 2 deletions

diff --git a/src/maple/codegen2.maple b/src/maple/codegen2.maple
index ba4f811..32a3303 100644
--- a/src/maple/codegen2.maple
+++ b/src/maple/codegen2.maple
@@ -326,7 +326,7 @@ fi;
 	elif (type(rname, indexed) and (op(0,rname) = rn))
 	   then return true;
 	fi;
-	od;
+	end do;
 
 return false;
 end;
diff --git a/src/maple/util.maple b/src/maple/util.maple
index a2ec9ec..09932e2 100644
--- a/src/maple/util.maple
+++ b/src/maple/util.maple
@@ -144,7 +144,7 @@ len2 := nops(list2);
 	elif (list1[k] > list2[k])
 	   then return false;
 	fi;
-	od;
+	end do;
 
 # get to here ==> the shorter list is an exact prefix of the longer one
 #             ==> order the shorter one < the longer one