projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: swap BIGINT and STRING types
[fw/altos]
/
src
/
scheme
/
ao_scheme_error.c
diff --git
a/src/scheme/ao_scheme_error.c
b/src/scheme/ao_scheme_error.c
index d580a2c0a9e643968429b750c3084538406f04be..c015c76a186d1de4d25ff6369871e1eff98a3c7c 100644
(file)
--- a/
src/scheme/ao_scheme_error.c
+++ b/
src/scheme/ao_scheme_error.c
@@
-16,7
+16,7
@@
#include <stdarg.h>
void
#include <stdarg.h>
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)
{
int first = 1;
printf("\t\t%s(", name);
{
int first = 1;
printf("\t\t%s(", name);
@@
-50,7
+50,7
@@
static void tabs(int indent)
}
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)
{
int f;
{
int f;
@@
-83,7
+83,7
@@
ao_scheme_error_frame(int indent, char *name, struct ao_scheme_frame *frame)
}
void
}
void
-ao_scheme_vprintf(char *format, va_list args)
+ao_scheme_vprintf(c
onst c
har *format, va_list args)
{
char c;
{
char c;
@@
-112,7
+112,7
@@
ao_scheme_vprintf(char *format, va_list args)
}
void
}
void
-ao_scheme_printf(char *format, ...)
+ao_scheme_printf(c
onst c
har *format, ...)
{
va_list args;
va_start(args, format);
{
va_list args;
va_start(args, format);
@@
-121,7
+121,7
@@
ao_scheme_printf(char *format, ...)
}
ao_poly
}
ao_poly
-ao_scheme_error(int error, char *format, ...)
+ao_scheme_error(int error, c
onst c
har *format, ...)
{
va_list args;
{
va_list args;