clear.cpp

   1 #include "stdafx.h"
   2 #include "defs.h"
   3
   4 void
   5 eval_clear(void)
   6 {/*
   7         if (test_flag == 0)
   8                 clear_term();*/
   9         clear_symbols();
  10         defn();
  11         push(symbol(NIL));
  12 }
  13
  14 // clear from application GUI code
  15
  16 void
  17 clear(void)
  18 {
  19         run("clear");
  20 }