projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: Add ports. Split scheme code up.
[fw/altos]
/
src
/
scheme
/
ao_scheme_bool.c
diff --git
a/src/scheme/ao_scheme_bool.c
b/src/scheme/ao_scheme_bool.c
index c1e880cac8497719a663c1800016b9e859f7ac2a..05109fb9a0df1de3acd8e48de5b0e82cabb35b37 100644
(file)
--- a/
src/scheme/ao_scheme_bool.c
+++ b/
src/scheme/ao_scheme_bool.c
@@
-38,14
+38,21
@@
const struct ao_scheme_type ao_scheme_bool_type = {
};
void
};
void
-ao_scheme_bool_write(
ao_poly v
)
+ao_scheme_bool_write(
FILE *out, ao_poly v, bool write
)
{
struct ao_scheme_bool *b = ao_scheme_poly_bool(v);
{
struct ao_scheme_bool *b = ao_scheme_poly_bool(v);
+ (void) write;
if (b->value)
if (b->value)
-
printf(
"#t");
+
fprintf(out,
"#t");
else
else
- printf("#f");
+ fprintf(out, "#f");
+}
+
+ao_poly
+ao_scheme_do_booleanp(struct ao_scheme_cons *cons)
+{
+ return ao_scheme_do_typep(_ao_scheme_atom_boolean3f, AO_SCHEME_BOOL, cons);
}
#ifdef AO_SCHEME_MAKE_CONST
}
#ifdef AO_SCHEME_MAKE_CONST