clear.cpp 226 B

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