X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme.h;h=2fa1ed60e52b0907f9e49770261df64d0745c589;hb=713e8ca6b6cfb29555d8d847e0bb2652cfe011ae;hp=896166174e691036d9b1b7c07ebb4c769ee68fd4;hpb=17fe6de833cccb6d43d0ac0ed84a4faaa3463a09;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h
index 89616617..2fa1ed60 100644
--- a/src/scheme/ao_scheme.h
+++ b/src/scheme/ao_scheme.h
@@ -522,9 +522,9 @@ ao_scheme_poly_vector(ao_poly poly)
 
 /* memory functions */
 
-extern int ao_scheme_collects[2];
-extern int ao_scheme_freed[2];
-extern int ao_scheme_loops[2];
+extern uint64_t ao_scheme_collects[2];
+extern uint64_t ao_scheme_freed[2];
+extern uint64_t ao_scheme_loops[2];
 
 /* returns 1 if the object was already marked */
 int
@@ -634,6 +634,9 @@ ao_scheme_cons_display(ao_poly);
 int
 ao_scheme_cons_length(struct ao_scheme_cons *cons);
 
+struct ao_scheme_cons *
+ao_scheme_cons_copy(struct ao_scheme_cons *cons);
+
 /* string */
 extern const struct ao_scheme_type ao_scheme_string_type;