X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme.h;h=cc7f8f1d5600d4a2c4565c70b057228261d8daa2;hp=48d0149bebacb263281eefb75cb5c31d964d514c;hb=e1a6b3bf458f311d832aea7eec34935d42f8efed;hpb=9d1131da911f7220ac8b6cb7ba5a0afd3deef657

diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h
index 48d0149b..cc7f8f1d 100644
--- a/src/scheme/ao_scheme.h
+++ b/src/scheme/ao_scheme.h
@@ -555,6 +555,21 @@ ao_scheme_move_memory(const struct ao_scheme_type *type, void **ref);
 void *
 ao_scheme_alloc(int size);
 
+/* Marks an object as being printed, returns 1 if it was already marked */
+int
+ao_scheme_print_mark_addr(void *addr);
+
+int
+ao_scheme_print_mark_poly(ao_poly poly);
+
+/* Notes that printing has started */
+void
+ao_scheme_print_start(void);
+
+/* Notes that printing has ended */
+void
+ao_scheme_print_stop(void);
+
 #define AO_SCHEME_COLLECT_FULL		1
 #define AO_SCHEME_COLLECT_INCREMENTAL	0