:- prolog_language(pop11).


define ADD( dir, list );
    lvars dir, list;
    if not( member(dir,valof(list)) ) then
        dir :: valof(list) -> valof(list);
    endif;
enddefine;


ADD( '$eden_src', "vedteachlist" );
ADD( '$eden_src', "vedhelplist" );
ADD( '$eden_src', "prologliblist" );
ADD( '$eden_src', "popliblist" );
ADD( '$eden_src', "popuseslist" );
ADD( '$eden_src', "vedteachlist" );
ADD( '$eden_src', "vedhelplist" );

cancel ADD;


5000000 -> popmemlim;

vedvt100( false );

:- prolog_language(prolog).