Corrected a typo/bug in the processing of the YAP flag "associate".
This commit is contained in:
parent
8f8e62ea63
commit
c723d98869
@ -213,7 +213,7 @@ yap_flag(associate,X) :-
|
|||||||
yap_flag(associate,X) :-
|
yap_flag(associate,X) :-
|
||||||
atom(X), !,
|
atom(X), !,
|
||||||
set_value('$associate',X).
|
set_value('$associate',X).
|
||||||
yap_flag(bounded,X) :-
|
yap_flag(associate,X) :-
|
||||||
'$do_error'(type_error(atom,X),associate(X)).
|
'$do_error'(type_error(atom,X),associate(X)).
|
||||||
|
|
||||||
yap_flag(bounded,X) :-
|
yap_flag(bounded,X) :-
|
||||||
|
Reference in New Issue
Block a user