/* Copyright 1989, 1990 by James Aspnes, David Applegate, and Bennet Yee */
/* See the file COPYING for distribution information */
#include "db.h"
#include "config.h"

extern alist get_aliases(datum);

datum matches(datum string, datum x)
{
    alist a;

    if(isempty(a = get_aliases(x))) {
	return 0;
    } else {
	return assoc(a, string, 0);
    }
}