user:library_directory('.'). user:runtime_entry(start) :- user:go.
Calls:
Name: go/0
do_stuff :- A = [a,b,c,d,e,f,g,h,i,j], member(_,A),member(_,A),member(_,A), member(_,A),member(_,A),member(_,A), member(_,A),fail. do_stuff :- write('tick...\n'),fail. do_stuff :- do_stuff.
Name: RECURSIVE_CALL/0
Name: fail
Name: write/1
Name: member/2
Name: =/2
go :- get_user_signal_ref(Ref), write('ref='),write(Ref),nl, user_interruptable_call_det(do_stuff, R), write('result='),write(R),nl.
Name: nl
Name: user_interruptable_call_det/2
Name: get_user_signal_ref/1
Called:
Name: :/2