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 1a8e7e91cd60c7f0faca8e69747f4e2d727c49a3..fa3632b157afaeb8c38c8c7a9c7810efe5395434 100644 (file)
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -20,7 +20,6 @@
 
 #include <stdint.h>
 #include <string.h>
 
 #include <stdint.h>
 #include <string.h>

-//#include <stdio.h>

 #include <ao_lisp_os.h>
 
 typedef uint16_t       ao_poly;
 #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_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)
 {

diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 800ee06d88df1811cf39b03de5fd01ee52501d8d..fb3b06fe8f2d90c00f4ae1589b61acb5fc71d078 100644 (file)
--- a/src/lisp/ao_lisp_poly.c
+++ b/src/lisp/ao_lisp_poly.c
@@ -14,12 +14,6 @@
 
 #include "ao_lisp.h"
 
 
 #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);
 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 b792c2f19a123f55138df67da8557d635dc5de99..84ef2a616bb09fdbdb9cebba3d4a2e889c14762b 100644 (file)
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -12,7 +12,6 @@
  * General Public License for more details.
  */
 
  * General Public License for more details.
  */
 

-#define DBG_EVAL 0

 #include "ao_lisp.h"
 #include "ao_lisp_read.h"
 
 #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 9c773e83cef3cf95a61aa14fda5cccd4bce73135..ef07b88a92f4883f78c209190ec7467e36500935 100644 (file)
--- a/src/lisp/ao_lisp_stack.c
+++ b/src/lisp/ao_lisp_stack.c
@@ -12,7 +12,6 @@
  * General Public License for more details.
  */
 
  * General Public License for more details.
  */
 

-#define DBG_EVAL 0

 #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;