wip

diff --git a/generate-board b/generate-board
index bd0276a18a93508e56aba66b29f331759002e399..d981907841e0dba6951f4584bf8b6b6e580e671a 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -66,14 +66,17 @@ sub read_faces () {
        $adj->{Ends}[$endi] = $edges[ ($ei + $endi) % @edges ];
       }
     }
+    @edges = ();
+    $rr = undef;
   };
   my $vxname;
   for (;;) {
     $!=0; $_=<P> // confess $!;
     last if m/^\&$/;
     if (m/^$sre$/) {
+      my $new_face= $2;
       $process_rr->() if $rr;
-      $rr= prs2rr($2);
+      $rr= prs2rr($new_face);
     } elsif (m/^\s+$sre$/) {
       confess unless $rr;
       $vxname = $2;