/*  USEFUL.P  */
 
 
/* This is the Pop component of USEFUL.PL. See it for an explanation. */
 
 
define set_prompt( P );
    P><'' -> prolog_read_prompt;
    /*  Convert it to a string before assigning.  */
enddefine;
 
 
define get_prompt();
    if prolog_read_prompt.isstring then
        prolog_read_prompt.consword
    else
        prolog_read_prompt
    endif
enddefine;
 
 
vars ^ = nonop **;