From 342e7760582280d6106a57891d9ea3374551bf77 Mon Sep 17 00:00:00 2001 From: azidar Date: Fri, 31 Jul 2015 17:39:11 -0700 Subject: Fixed (?) resolve genders pass --- src/main/stanza/errors.stanza | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') 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) -> Gender : match(e) : -- cgit v1.2.3