Filter out unused cells
diff --git a/scripts/generator.pl b/scripts/generator.pl
index 87e764e..bcbc6fa 100644
--- a/scripts/generator.pl
+++ b/scripts/generator.pl
@@ -68,6 +68,7 @@
   my $name=""; $name=$1 if($mag=~m/([\w\-\.]+)\.mag$/);
   next unless(-f $cell);
   next unless(-f $lib);
+  next unless(-f "$CARAVEL/cells/mag/$name.mag");
 
   open CELL,"<$cell";
   print "$name $name(\n";