- ao_scheme_print_stop();
-}
-
-void
-ao_scheme_vector_display(ao_poly v)
-{
- struct ao_scheme_vector *vector = ao_scheme_poly_vector(v);
- unsigned int i;
-
- ao_scheme_print_start();
- if (ao_scheme_print_mark_addr(vector))
- printf ("...");
- else {
- for (i = 0; i < vector->length; i++)
- ao_scheme_poly_display(vector->vals[i]);
- }