X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme.h;h=5b31c62312fa1884ded8455bc3047a6a54668899;hp=b37e9098fc1d6c144fea88f4e8d05bf3cceda132;hb=fa6f4b331db9d37da6767005fd375b696485b46b;hpb=431165e5fa72ba6dffd477de32960745cdec332c

diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h
index b37e9098..5b31c623 100644
--- a/src/scheme/ao_scheme.h
+++ b/src/scheme/ao_scheme.h
@@ -646,7 +646,7 @@ struct ao_scheme_cons *
 ao_scheme_cons_cdr(struct ao_scheme_cons *cons);
 
 ao_poly
-ao_scheme__cons(ao_poly car, ao_poly cdr);
+ao_scheme_cons(ao_poly car, ao_poly cdr);
 
 extern struct ao_scheme_cons *ao_scheme_cons_free_list;