Fixed (?) resolve genders pass

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main/stanza/errors.stanza b/src/main/stanza/errors.stanza
index a008a25b..2fb1352c 100644
--- a/src/main/stanza/errors.stanza
+++ b/src/main/stanza/errors.stanza
@@ -720,8 +720,10 @@ public defn check-genders (c:Circuit) -> Circuit :
       ;println(gender)
       ;println(right)
       ;println(right == gender)
-      if gender != right and gender != BI-GENDER:
-         add(errors,WrongGender(info,to-symbol(e),as-srcsnk(right),as-srcsnk(gender)))
+      ;if gender != right and gender != BI-GENDER:
+      switch fn ([x,y]) : gender == x and right == y :
+         [MALE, FEMALE] : add(errors,WrongGender(info,to-symbol(e),as-srcsnk(right),as-srcsnk(gender)))
+         else : false
 
    defn get-gender (e:Expression,genders:HashTable<Symbol,Gender>) -> Gender :
       match(e) :