#include <stdio.h>
#include "wstp.h"

/* A function for printing WSTP error messages */

void f(WSLINK l)
{
    int error;

    if((error = WSError(l),error) != WSEOK)
    {
        printf("WSTP error: %s\n", WSErrorString(
            WSLinkEnvironment(l), error));
    }
}