remove n0

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 7cb51887ed8e8da3f4dee37b252d82e852cb0f96..fe6157d62d8b5379fa9dafc0b87ee436e44a949d 100755 (executable)
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -18,20 +18,18 @@ sub END
 
 sub is_prime ($)
 {
-  my ($n0) = @_;
+  my ($n) = @_;
   use integer;
 
-  $n0 == 2
+  $n == 2
     and return 1;
 
-  my $n = $n0;
   my $d = 2;
   my $w = 1;
   my $q;
   while (1)
     {
       $q = $n / $d;
-      #print "q=$q n=$n d=$d\n";
       ($n == $q * $d)
         and return 0;
       $d += $w;