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

diff --git a/src/scheme/ao_scheme_bool.c b/src/scheme/ao_scheme_bool.c
index c1e880ca..05109fb9 100644
--- 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
-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);
 
+	(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