projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: apply const to places taking const strings.
[fw/altos]
/
src
/
scheme
/
ao_scheme.h
diff --git
a/src/scheme/ao_scheme.h
b/src/scheme/ao_scheme.h
index db4417e5249ed3ffabac3622f0edaf0580d44648..7e4b36973af6db382a162e219e586221b4463161 100644
(file)
--- a/
src/scheme/ao_scheme.h
+++ b/
src/scheme/ao_scheme.h
@@
-63,7
+63,7
@@
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
#define ao_scheme_pool ao_scheme_const
#define AO_SCHEME_POOL AO_SCHEME_POOL_CONST
-#define _atom(n) ao_scheme_atom_poly(ao_scheme_atom_intern(n))
+#define _atom(n) ao_scheme_atom_poly(ao_scheme_atom_intern(
(char *)
n))
#define _bool(v) ao_scheme_bool_poly(ao_scheme_bool_get(v))
#define _ao_scheme_bool_true _bool(1)
#define _bool(v) ao_scheme_bool_poly(ao_scheme_bool_get(v))
#define _ao_scheme_bool_true _bool(1)
@@
-940,19
+940,19
@@
ao_scheme_stack_eval(void);
/* error */
void
/* error */
void
-ao_scheme_vprintf(char *format, va_list args);
+ao_scheme_vprintf(c
onst c
har *format, va_list args);
void
void
-ao_scheme_printf(char *format, ...);
+ao_scheme_printf(c
onst c
har *format, ...);
void
void
-ao_scheme_error_poly(char *name, ao_poly poly, ao_poly last);
+ao_scheme_error_poly(c
onst c
har *name, ao_poly poly, ao_poly last);
void
void
-ao_scheme_error_frame(int indent, char *name, struct ao_scheme_frame *frame);
+ao_scheme_error_frame(int indent, c
onst c
har *name, struct ao_scheme_frame *frame);
ao_poly
ao_poly
-ao_scheme_error(int error, char *format, ...);
+ao_scheme_error(int error, c
onst c
har *format, ...);
/* builtins */
/* builtins */