[bugfix] pic_debug broken in debug build

picrin-scheme · May 28, 2015 · fa8226e · fa8226e
1 parent 00cde35
commit fa8226e
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/extlib/benz/include/picrin.h b/extlib/benz/include/picrin.h
@@ -244,9 +244,12 @@ pic_value pic_fwrite(pic_state *, pic_value, xFILE *);
 void pic_printf(pic_state *, const char *, ...);
 pic_value pic_display(pic_state *, pic_value);
 pic_value pic_fdisplay(pic_state *, pic_value, xFILE *);
-/* obsoleted macros */
-#define pic_debug(pic,obj) pic_write(pic,obj)
-#define pic_fdebug(pic,obj,file) pic_fwrite(pic,obj,file)
+
+#if DEBUG
+# include "picrin/port.h"
+# define pic_debug(pic,obj) pic_fwrite(pic,obj,pic->xSTDERR->file)
+# define pic_fdebug(pic,obj,file) pic_fwrite(pic,obj,file)
+#endif
 
 #if defined(__cplusplus)
 }