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_read.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_read.c')
| -rw-r--r-- | src/scheme/ao_scheme_read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c index 721211bc..e93466fc 100644 --- a/src/scheme/ao_scheme_read.c +++ b/src/scheme/ao_scheme_read.c @@ -510,7 +510,7 @@ push_read_stack(int read_state) RDBG_IN(); if (ao_scheme_read_list) { ao_scheme_read_stack = ao_scheme_cons_cons(ao_scheme_cons_poly(ao_scheme_read_cons), - ao_scheme__cons(ao_scheme_int_poly(read_state), + ao_scheme_cons(ao_scheme_int_poly(read_state), ao_scheme_cons_poly(ao_scheme_read_stack))); if (!ao_scheme_read_stack) return 0; |