%
% needed for P/FDM which is SICStus 3.7.1
% and does not have atom_codes/2
%
:- module(atom_codes,[atom_codes/2]).

atom_codes(X,Y) :-
	name(X,Y).

