get rid of suprious definition of $message
This commit is contained in:
parent
d5d5a6c95f
commit
24c2650472
@ -282,8 +282,6 @@ cvt_bindings([[Name|Value]|L],[AName=Value|Bindings]) :-
|
|||||||
atom_codes(AName, Name),
|
atom_codes(AName, Name),
|
||||||
cvt_bindings(L,Bindings).
|
cvt_bindings(L,Bindings).
|
||||||
|
|
||||||
'$messages':prolog_message(_,L,L).
|
|
||||||
|
|
||||||
prolog:working_directory(OCWD,NCWD) :-
|
prolog:working_directory(OCWD,NCWD) :-
|
||||||
getcwd(OCWD),
|
getcwd(OCWD),
|
||||||
(var(NCWD) -> true ; cd(NCWD)).
|
(var(NCWD) -> true ; cd(NCWD)).
|
||||||
|
Reference in New Issue
Block a user