X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_bool.c;h=05109fb9a0df1de3acd8e48de5b0e82cabb35b37;hb=16061947d4376b41e596d87f97ec53ec29d17644;hp=88970667c1244afce5afa427fe6532d7325f63d4;hpb=39df849f0717d92a7d5bdf8aa5904bd4db1b467f;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_bool.c b/src/scheme/ao_scheme_bool.c
index 88970667..05109fb9 100644
--- 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