diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-25 17:29:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-25 17:29:10 -0800 |
| commit | 00bf2ca86b60e6501880011897cea073865c5a03 (patch) | |
| tree | d7125e77052843a32000d5aef631b3054f20aba5 /src/lisp/ao_lisp_builtin.c | |
| parent | 5f9f97cc2d43936d1941da3a9a130c279bc70b99 (diff) | |
altos/lisp: Rename progn to begin
Match scheme name.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_builtin.c')
| -rw-r--r-- | src/lisp/ao_lisp_builtin.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c index d4dc8a86..693cc3ca 100644 --- a/src/lisp/ao_lisp_builtin.c +++ b/src/lisp/ao_lisp_builtin.c @@ -232,9 +232,9 @@ ao_lisp_do_cond(struct ao_lisp_cons *cons) } ao_poly -ao_lisp_do_progn(struct ao_lisp_cons *cons) +ao_lisp_do_begin(struct ao_lisp_cons *cons) { - ao_lisp_stack->state = eval_progn; + ao_lisp_stack->state = eval_begin; ao_lisp_stack->sexprs = ao_lisp_cons_poly(cons); return AO_LISP_NIL; } |