From da453d98448788c44471cd495d89789fdfeae60d Mon Sep 17 00:00:00 2001
From: Alexander Hulpke <hulpke@math.colostate.edu>
Date: Thu, 14 Feb 2019 11:41:54 +1100
Subject: [PATCH] CLEANUP: Comments, unnecessary commands and error messages.

---
 lib/oprt.gd | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/lib/oprt.gd b/lib/oprt.gd
index 3f4810a680..7d3be142a1 100644
--- a/lib/oprt.gd
+++ b/lib/oprt.gd
@@ -1082,7 +1082,7 @@ local str, orbish, func;
 
     # Create the wrapper function.
     func := function( arg )
-    local   G,  D,  pnt,  gens,  acts,  act,  xset,  p,  attrG,  result,le;
+    local   G,  D,  pnt,  gens,  acts,  act,   p,  attrG,  result,le;
 
       # Get the arguments.
       if 2 <= Length( arg ) then
@@ -1090,7 +1090,6 @@ local str, orbish, func;
 	  G := arg[ 1 ];
 	  if IsFunction( arg[ le ] )  then
 	      act := arg[ le ];
-	      le:=le-1;
 	  else
 	      act := OnPoints;
 	  fi;
@@ -1111,8 +1110,7 @@ local str, orbish, func;
 	      acts := arg[ p + 2 ];
 	  fi;
       else
-	Error( "usage: ", name, "(<xset>,<pnt>)\n",
-	      "or ", name, "(<G>[,<Omega>],<pnt>[,<gens>,<acts>][,<act>])" );
+	Error( "usage: ", name, "(<G>[,<Omega>],<pnts>[,<gens>,<acts>][,<act>])" );
       fi;
       
       if not IsBound( gens )  then
@@ -1131,12 +1129,7 @@ local str, orbish, func;
       if IsBound( D )  then
 	  result := orbish( G, D, pnt, gens, acts, act );
       else
-
-	  # The following line is also executed  when `Blocks(<G>, <Omega>, <act>)'
-	  # is called to compute blocks with no  seed, but then <pnt> is really
-	  # <Omega>, i.e., the operation domain!
 	  result := orbish( G, pnt, gens, acts, act );
-
       fi;
 
       return result;