Exit Scryer on Error

[dougransom]

Scryer exits instead of an error being reported on non-existent predicate.

:- use_module(bakage).
:- use_module(pkg(testing)).
test("Force Fail",false).
test("Force Pass",true).

%DCG Tests
test("Test Dot", (phrase(dot,"."),dot)).

?- run_tests.
Running tests in module user.
  test "Force Fail" ... failed
  test "Force Pass" ... succeeded
  test "Test Dot" ... error(existence_error(procedure,dot/2),dot/2)
doug@kite:~/code/regexp$