projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: Rework display/write code
[fw/altos]
/
src
/
scheme
/
ao_scheme_int.c
diff --git
a/src/scheme/ao_scheme_int.c
b/src/scheme/ao_scheme_int.c
index 4fcf4931234050acbc9f5517cf394afbfe3aac9f..01b571c0c8260e4aac90fb71f096e66112ddb60e 100644
(file)
--- a/
src/scheme/ao_scheme_int.c
+++ b/
src/scheme/ao_scheme_int.c
@@
-15,9
+15,10
@@
#include "ao_scheme.h"
void
#include "ao_scheme.h"
void
-ao_scheme_int_write(ao_poly p)
+ao_scheme_int_write(ao_poly p
, bool write
)
{
int i = ao_scheme_poly_int(p);
{
int i = ao_scheme_poly_int(p);
+ (void) write;
printf("%d", i);
}
printf("%d", i);
}
@@
-76,10
+77,11
@@
const struct ao_scheme_type ao_scheme_bigint_type = {
};
void
};
void
-ao_scheme_bigint_write(ao_poly p)
+ao_scheme_bigint_write(ao_poly p
, bool write
)
{
struct ao_scheme_bigint *bi = ao_scheme_poly_bigint(p);
{
struct ao_scheme_bigint *bi = ao_scheme_poly_bigint(p);
+ (void) write;
printf("%d", bi->value);
}
#endif /* AO_SCHEME_FEATURE_BIGINT */
printf("%d", bi->value);
}
#endif /* AO_SCHEME_FEATURE_BIGINT */