From: Keith Packard <keithp@keithp.com>
Date: Sat, 19 Nov 2016 06:53:36 +0000 (-0800)
Subject: altos/lisp: Cleanup some DBG defines
X-Git-Tag: 1.7~127
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=129e07ccc9b8a33491a905a91ca6c5b0509aba9c

altos/lisp: Cleanup some DBG defines

Get rid of the remaining duplicate defines.

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 1a8e7e91..fa3632b1 100644
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -20,7 +20,6 @@
 
 #include <stdint.h>
 #include <string.h>
-//#include <stdio.h>
 #include <ao_lisp_os.h>
 
 typedef uint16_t	ao_poly;
@@ -735,7 +734,7 @@ int ao_lisp_stack_depth;
 #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)
 {
diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 800ee06d..fb3b06fe 100644
--- a/src/lisp/ao_lisp_poly.c
+++ b/src/lisp/ao_lisp_poly.c
@@ -14,12 +14,6 @@
 
 #include "ao_lisp.h"
 
-#if 0
-#define DBG(...) printf (__VA_ARGS__)
-#else
-#define DBG(...)
-#endif
-
 struct ao_lisp_funcs {
 	void (*print)(ao_poly);
 	void (*patom)(ao_poly);
diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c
index b792c2f1..84ef2a61 100644
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -12,7 +12,6 @@
  * General Public License for more details.
  */
 
-#define DBG_EVAL 0
 #include "ao_lisp.h"
 #include "ao_lisp_read.h"
 
diff --git a/src/lisp/ao_lisp_stack.c b/src/lisp/ao_lisp_stack.c
index 9c773e83..ef07b88a 100644
--- a/src/lisp/ao_lisp_stack.c
+++ b/src/lisp/ao_lisp_stack.c
@@ -12,7 +12,6 @@
  * General Public License for more details.
  */
 
-#define DBG_EVAL 0
 #include "ao_lisp.h"
 
 const struct ao_lisp_type ao_lisp_stack_type;