2004-06-19 02:58:49 +02:00
|
|
|
#include "stdafx.h"
|
|
|
|
#include "defs.h"
|
|
|
|
|
|
|
|
void
|
|
|
|
eval_clear(void)
|
|
|
|
{
|
2007-05-24 23:48:10 +02:00
|
|
|
if (test_flag == 0)
|
|
|
|
clear_term();
|
2004-08-28 00:09:03 +02:00
|
|
|
clear_symbols();
|
|
|
|
defn();
|
2006-01-16 20:37:31 +01:00
|
|
|
push(symbol(NIL));
|
2004-06-19 02:58:49 +02:00
|
|
|
}
|
|
|
|
|
2004-08-28 00:09:03 +02:00
|
|
|
// clear from application GUI code
|
|
|
|
|
2004-06-19 02:58:49 +02:00
|
|
|
void
|
|
|
|
clear(void)
|
|
|
|
{
|
2004-08-28 00:09:03 +02:00
|
|
|
run("clear");
|
2004-06-19 02:58:49 +02:00
|
|
|
}
|