diff options
author | Bdale Garbee <bdale@gag.com> | 2017-12-11 21:39:38 -0700 |
---|---|---|
committer | Bdale Garbee <bdale@gag.com> | 2017-12-11 21:39:38 -0700 |
commit | 8e0b575ad1dfd5a49136d3fe945d27f6afda1178 (patch) | |
tree | 74657870764e6a3792bdd7e90acd725353c20904 /src/lisp/ao_lisp_rep.c | |
parent | 132b92a95bdebabf573a680301bfb1e93eaa6721 (diff) | |
parent | fe38c22595b050435dbacd35f1baae064fb7de75 (diff) |
Merge branch 'branch-1.8' into debian
Diffstat (limited to 'src/lisp/ao_lisp_rep.c')
-rw-r--r-- | src/lisp/ao_lisp_rep.c | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c deleted file mode 100644 index 3be95d44..00000000 --- a/src/lisp/ao_lisp_rep.c +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Copyright © 2016 Keith Packard <keithp@keithp.com> - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * General Public License for more details. - */ - -#include "ao_lisp.h" - -ao_poly -ao_lisp_read_eval_print(void) -{ - ao_poly in, out = AO_LISP_NIL; - for(;;) { - in = ao_lisp_read(); - if (in == _ao_lisp_atom_eof || in == AO_LISP_NIL) - break; - out = ao_lisp_eval(in); - if (ao_lisp_exception) { - ao_lisp_exception = 0; - } else { - ao_lisp_poly_print(out); - putchar ('\n'); - } - } - return out; -} |