/* --- Copyright University of Sussex 1990. All rights reserved. ----------
 > File:            $poplocal/local/plog/lib/ttss.pl
 > Purpose:         Load TTSS library
 > Author:          John Williams, Mar 15 1990
 > Documentation:
 > Related Files:   $poplocal/local/plog/lib/ttss (directory)
 */

:- prolog_language(pop11).

section;

procedure();
    dlocal current_directory = '$poplocal/local/plog/lib/ttss';
    prolog_compile('consultfile.pl')
endprocedure();


('ttss=' <> sysfileok('$poplocal/local/plog/lib/ttss'))
    :: popenvlist -> popenvlist;

endsection;

:- prolog_language(prolog).
