From: Keith Packard Date: Thu, 4 Jan 2018 10:26:21 +0000 (-0800) Subject: altos/scheme: Allow make-vector value param to be optional X-Git-Tag: 1.8.5~1^2~2^2~21 X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=243baa14a62e3efe5ae792c73db75f9c2cb86abb altos/scheme: Allow make-vector value param to be optional It can default to #f Signed-off-by: Keith Packard --- diff --git a/src/scheme/ao_scheme_builtin.c b/src/scheme/ao_scheme_builtin.c index 1bfe6942..4cb8b901 100644 --- a/src/scheme/ao_scheme_builtin.c +++ b/src/scheme/ao_scheme_builtin.c @@ -1144,12 +1144,12 @@ ao_scheme_do_make_vector(struct ao_scheme_cons *cons) { int32_t k; - if (!ao_scheme_check_argc(_ao_scheme_atom_make2dvector, cons, 2, 2)) + if (!ao_scheme_check_argc(_ao_scheme_atom_make2dvector, cons, 1, 2)) return AO_SCHEME_NIL; k = ao_scheme_arg_int(_ao_scheme_atom_make2dvector, cons, 0); if (ao_scheme_exception) return AO_SCHEME_NIL; - return ao_scheme_vector_poly(ao_scheme_vector_alloc(k, ao_scheme_arg(cons, 1))); + return ao_scheme_vector_poly(ao_scheme_vector_alloc(k, ao_scheme_opt_arg(cons, 1, _ao_scheme_bool_false))); } ao_poly