% This test case checks whether we get incorrect answers
% when a generator gets started but not finished inside a commit.

:- module generator_in_commit.

:- interface.
:- import_module io.

:- pred main(io__state::di, io__state::uo) is det.

:- implementation.

:- import_module int, list.
:- import_module std_util.

main --> 
	{ solutions(p, Solns) },
	io__write(Solns),
	io__write_string("\n").

:- pred p(int).
:- mode p(out) is nondet.

p(X) :-
	(
		q(_),
		X = 42
	;
		q(Y),
		X = Y + 20
	).

:- pragma minimal_model(q/1).
:- pred q(int).
:- mode q(out) is nondet.

q(X) :-
	(
		q(Y),
		X = Y + 1,
		X < 10
	;
		X = 1
	).