% prolog follows.
perlcall( Function, Args ) :-
    perlcall2( Function, Args ),
    !.

do_edit_node( Node ) :-
    perlcall( "do_edit_node", [ Node ] ).
error( Message ) :-
    perlcall( "error", [ Message ] ).
do_create_node( Node, Code ) :-
    perlcall( "do_create_node", [ Node, Code ] ).