From cfe65cea0ae345dfb4bf63748ed70aa882015407 Mon Sep 17 00:00:00 2001 From: Paulo Moura Date: Sat, 30 Apr 2011 20:22:20 +0200 Subject: [PATCH] Corrected a bug in the implementation of yap_flag/2 when returning the user_input, uer_error, and user_ouput flag values. --- pl/flags.yap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pl/flags.yap b/pl/flags.yap index 0982737e8..2b7fc457d 100644 --- a/pl/flags.yap +++ b/pl/flags.yap @@ -958,7 +958,7 @@ yap_flag(dialect,yap). '$yap_flag_show_gc_tracing'(_, _, _, off). '$flag_check_alias'(OUT, Alias) :- - stream_property(OUT,[alias(Alias)]), !. + stream_property(OUT,alias(Alias)), !. current_prolog_flag(V,Out) :- var(V), !,