[m-dev.] For review interactive queries for the external debugger

[Fergus Henderson]

On 21-Apr-1999, Erwan Jahier <Erwan.Jahier at irisa.fr> wrote:
> 
> +any_query(ModuleList, QueryType) :-
>  	( not getval(state_of_opium, running) ->
>  		write("No program is running, you can't make a query.\n")
>  	;
...
>  	% strings need to quoted before being sent.
>  	maplist(quote_string, ModuleList, QuotedList),
>  	send_message_to_socket(query(QuotedList)),
> -	loop_for_queries(query).
> +	loop_for_queries(QueryType).

Shouldn't that be

	Message =.. [QueryType, QuotedList],
	send_message_to_socket(Message)

instead of 

  	send_message_to_socket(query(QuotedList)),

?

Apart from that, that change looks fine.

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------