altos/scheme: add make-string builtin

[fw/altos] / src / scheme / ao_scheme.h

diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h
index 428533b00222db2914952d6dab1a8ea791e689a5..68803462841bcefb989fbb6a301e28bff380204a 100644 (file)
--- a/src/scheme/ao_scheme.h
+++ b/src/scheme/ao_scheme.h
@@ -71,7 +71,7 @@ ao_scheme_os_restore(void);
 #endif
 
 #ifdef AO_SCHEME_MAKE_CONST
-#define AO_SCHEME_POOL_CONST   16384
+#define AO_SCHEME_POOL_CONST   32764
 extern uint8_t ao_scheme_const[AO_SCHEME_POOL_CONST] __attribute__((aligned(4)));
 #define ao_scheme_pool ao_scheme_const
 #define AO_SCHEME_POOL AO_SCHEME_POOL_CONST
@@ -710,7 +710,10 @@ struct ao_scheme_string *
 ao_scheme_string_copy(struct ao_scheme_string *a);
 
 struct ao_scheme_string *
-ao_scheme_string_make(char *a);
+ao_scheme_string_new(char *a);
+
+struct ao_scheme_string *
+ao_scheme_make_string(int32_t len, char fill);
 
 struct ao_scheme_string *
 ao_scheme_atom_to_string(struct ao_scheme_atom *a);