Still some bugs in rules generated from rule-language source. However,

a great deal does work.
This commit is contained in:
Simon Brooke 2014-07-14 23:22:33 +01:00
parent e1ed824aff
commit 7375b668c0
2 changed files with 7 additions and 5 deletions

View file

@ -190,9 +190,9 @@
(cond (and (= comp1 "equal") (= comp2 "to"))
(gen-neighbours-condition comparator quantity property value remainder '=)
(and (= comp1 "more") (= comp2 "than"))
(gen-neighbours-condition '> quantity property value remainder '>)
(gen-neighbours-condition comparator quantity property value remainder '>)
(and (= comp1 "less") (= comp2 "than"))
(gen-neighbours-condition '< quantity property value remainder '<)
(gen-neighbours-condition comparator quantity property value remainder '<)
))))))
(defn parse-some-neighbours-condition