/*  --- University of Sussex POPLOG file -----------------------------------
 *  File:           $usepop/master/C.all/lib/database/database.p
 *  Purpose:        declare and initialise the variable DATABASE
 *  Author:         Unknown, ???
 *  Documentation:  HELP * DATABASE
 *  Related Files:
 */

section;

global vars it them database;

unless islist(database) do [] -> database; endunless;

endsection;
