edit(X) :- name(X, Xname), name('$EDITOR ', Espace), edcat(Espace, Xname, Command), shell(Command), reconsult(X). edcat([], L, L). edcat([X|Xs], L, [X|XsL]) :- edcat(Xs, L, XsL).