From 00bf2ca86b60e6501880011897cea073865c5a03 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sat, 25 Nov 2017 17:29:10 -0800 Subject: altos/lisp: Rename progn to begin Match scheme name. Signed-off-by: Keith Packard --- src/lisp/ao_lisp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/lisp/ao_lisp.h') diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h index cbbbe9a4..858212dd 100644 --- a/src/lisp/ao_lisp.h +++ b/src/lisp/ao_lisp.h @@ -229,7 +229,7 @@ enum eval_state { eval_apply, /* Execute apply */ eval_cond, /* Start next cond clause */ eval_cond_test, /* Check cond condition */ - eval_progn, /* Start next progn entry */ + eval_begin, /* Start next begin entry */ eval_while, /* Start while condition */ eval_while_test, /* Check while condition */ eval_macro, /* Finished with macro generation */ -- cgit v1.2.3