From 243baa14a62e3efe5ae792c73db75f9c2cb86abb Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Thu, 4 Jan 2018 02:26:21 -0800 Subject: [PATCH] altos/scheme: Allow make-vector value param to be optional It can default to #f Signed-off-by: Keith Packard --- src/scheme/ao_scheme_builtin.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.30.2