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 88970667c1244afce5afa427fe6532d7325f63d4..05109fb9a0df1de3acd8e48de5b0e82cabb35b37 100644 (file)
--- a/src/scheme/ao_scheme_bool.c
+++ b/src/scheme/ao_scheme_bool.c
@@ -38,15 +38,21 @@ const struct ao_scheme_type ao_scheme_bool_type = {
 };
 
 void
-ao_scheme_bool_write(ao_poly v, bool write)
+ao_scheme_bool_write(FILE *out, ao_poly v, bool write)
 {
        struct ao_scheme_bool   *b = ao_scheme_poly_bool(v);
 
        (void) write;
        if (b->value)
-               printf("#t");
+               fprintf(out, "#t");
        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