diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/main/stanza/errors.stanza | 6 |
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) : |