diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-19 11:43:23 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-19 11:43:23 -0800 |
| commit | fa6f4b331db9d37da6767005fd375b696485b46b (patch) | |
| tree | e4b07ba711e5e7a90b246855d40570252652a904 /src/scheme/ao_scheme_builtin.c | |
| parent | 00390fb09f47654905824af671b966ffca0a38b3 (diff) | |
altos/scheme: ao_scheme__cons -> ao_scheme_cons
Fix the double underscore in this name. Ick.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/scheme/ao_scheme_builtin.c')
| -rw-r--r-- | src/scheme/ao_scheme_builtin.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scheme/ao_scheme_builtin.c b/src/scheme/ao_scheme_builtin.c index 221570c7..f4dff5bf 100644 --- a/src/scheme/ao_scheme_builtin.c +++ b/src/scheme/ao_scheme_builtin.c @@ -168,7 +168,7 @@ ao_scheme_do_cons(struct ao_scheme_cons *cons) return AO_SCHEME_NIL; car = ao_scheme_arg(cons, 0); cdr = ao_scheme_arg(cons, 1); - return ao_scheme__cons(car, cdr); + return ao_scheme_cons(car, cdr); } ao_poly @@ -253,10 +253,10 @@ ao_scheme_do_setq(struct ao_scheme_cons *cons) return ao_scheme_error(AO_SCHEME_INVALID, "set! of non-atom %v", name); if (!ao_scheme_atom_ref(name, NULL)) return ao_scheme_error(AO_SCHEME_INVALID, "atom %v not defined", name); - return ao_scheme__cons(_ao_scheme_atom_set, - ao_scheme__cons(ao_scheme__cons(_ao_scheme_atom_quote, - ao_scheme__cons(name, AO_SCHEME_NIL)), - cons->cdr)); + return ao_scheme_cons(_ao_scheme_atom_set, + ao_scheme_cons(ao_scheme_cons(_ao_scheme_atom_quote, + ao_scheme_cons(name, AO_SCHEME_NIL)), + cons->cdr)); } ao_poly |