Removed unused cells
diff --git a/scripts/cells.pl b/scripts/cells.pl
index 6afa65d..300b5e2 100644
--- a/scripts/cells.pl
+++ b/scripts/cells.pl
@@ -29,6 +29,8 @@
   my $name=""; $name=$1 if($mag=~m/([\w\-\.]+)\.mag$/);
   next unless(-f $cell);
   next unless(-f $lib);
+  next unless(-f $ENV{'CARAVEL'}."/cells/mag/$name.mag");
+
   open CELL,"<$cell";
   print "module $name(\n";