Get rid of the remaining duplicate defines.
Signed-off-by: Keith Packard <keithp@keithp.com>
#include <stdint.h>
#include <string.h>
#include <stdint.h>
#include <string.h>
#include <ao_lisp_os.h>
typedef uint16_t ao_poly;
#include <ao_lisp_os.h>
typedef uint16_t ao_poly;
#define DBG_CONS(a) ao_lisp_cons_print(ao_lisp_cons_poly(a))
#define DBG_POLY(a) ao_lisp_poly_print(a)
#define OFFSET(a) ((a) ? (int) ((uint8_t *) a - ao_lisp_pool) : -1)
#define DBG_CONS(a) ao_lisp_cons_print(ao_lisp_cons_poly(a))
#define DBG_POLY(a) ao_lisp_poly_print(a)
#define OFFSET(a) ((a) ? (int) ((uint8_t *) a - ao_lisp_pool) : -1)
-#define DBG_STACK() ao_lisp_stack_print()
+#define DBG_STACK() ao_lisp_stack_print(ao_lisp_stack_poly(ao_lisp_stack))
static inline void
ao_lisp_frames_dump(void)
{
static inline void
ao_lisp_frames_dump(void)
{
-#if 0
-#define DBG(...) printf (__VA_ARGS__)
-#else
-#define DBG(...)
-#endif
-
struct ao_lisp_funcs {
void (*print)(ao_poly);
void (*patom)(ao_poly);
struct ao_lisp_funcs {
void (*print)(ao_poly);
void (*patom)(ao_poly);
* General Public License for more details.
*/
* General Public License for more details.
*/
#include "ao_lisp.h"
#include "ao_lisp_read.h"
#include "ao_lisp.h"
#include "ao_lisp_read.h"
* General Public License for more details.
*/
* General Public License for more details.
*/
#include "ao_lisp.h"
const struct ao_lisp_type ao_lisp_stack_type;
#include "ao_lisp.h"
const struct ao_lisp_type ao_lisp_stack_type;