projects
/
fw
/
altos
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
a6e01e7
)
altos/scheme: Allow make-vector value param to be optional
author
Keith Packard
<keithp@keithp.com>
Thu, 4 Jan 2018 10:26:21 +0000
(
02:26
-0800)
committer
Keith Packard
<keithp@keithp.com>
Thu, 4 Jan 2018 10:26:21 +0000
(
02:26
-0800)
It can default to #f
Signed-off-by: Keith Packard <keithp@keithp.com>
src/scheme/ao_scheme_builtin.c
patch
|
blob
|
history
diff --git
a/src/scheme/ao_scheme_builtin.c
b/src/scheme/ao_scheme_builtin.c
index 1bfe6942b698dfc8ce6148e860a71d214f14842e..4cb8b901e7c425933470dc638576d5a4f0e9e8b8 100644
(file)
--- 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