diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-04 02:26:21 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-04 02:26:21 -0800 |
| commit | 243baa14a62e3efe5ae792c73db75f9c2cb86abb (patch) | |
| tree | 8587aac64dd3f8d2ac866097433ac65a970aa311 /src | |
| parent | a6e01e7aafb1d1fdb15d633ec23d8fe51afd15df (diff) | |
altos/scheme: Allow make-vector value param to be optional
It can default to #f
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/scheme/ao_scheme_builtin.c | 4 |
1 files 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 |