Details
-
Type:
Defect
-
Status:
Resolved
-
Priority:
Major
-
Resolution: Completed
-
Affects Version/s: None
-
Fix Version/s: None
-
Component/s: None
-
Labels:None
Description
The predc number constraint fails to be enforced here.
(is (= (run* [q]
(fresh [x]
(== q x)
(predc q number? `number?)
(== x "foo")))
())) ;; false -- actual is ((_0 :- number?))
Inverting the first two goals gives the expected result.
(is (= (run* [q]
(fresh [x]
(predc q number? `number?)
(== q x)
(== x "foo")))
())) ;; OK