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

put_code(C) :-
	put(C).

