prepare for improved (?) ambiguity checks

2019-01-22 20:50:07 -07:00
parent 498fe5247d
commit e92996126b
6 changed files with 83 additions and 170 deletions
--- a/src/tests.rs
+++ b/src/tests.rs
@@ -1676,7 +1676,9 @@ fn test_queries_on_builtins()
    assert_prolog_success!(&mut wam, "?- X = [.,.(.,.,.)].",
                           [["X = ['.', '.'('.', '.', '.')]"]]);
    assert_prolog_success!(&mut wam, "?- X = a+(b*c).",
-                           [["X = a+(b*c)"]]);
+                           [["X = a+b*c"]]);
+    assert_prolog_success!(&mut wam, "?- X = a*(b+c).",
+                           [["X = a*(b+c)"]]);
    assert_prolog_success!(&mut wam, "?- X = [:-,-].",
                           [["X = [:-, -]"]]);
    assert_prolog_success!(&mut wam, "?- X = a*(b+c).",