Style fixes
diff --git a/include/program.h b/include/program.h
index 1313575..1457f9c 100644
--- a/include/program.h
+++ b/include/program.h
@@ -68,7 +68,7 @@
 
 	// ** Exclude start. **
 	BcParseInit parse_init;
-	BcParseExpr parse_expr;
+	BcParseExpr parse_exp;
 	// ** Exclude end. **
 
 } BcProgram;
diff --git a/src/program.c b/src/program.c
index 2ec3f99..6879d2a 100644
--- a/src/program.c
+++ b/src/program.c
@@ -298,7 +298,7 @@
 	bc_lex_file(&parse.lex, bc_program_stdin_name);
 	if ((s = bc_lex_text(&parse.lex, buf.vec))) goto exec_err;
 
-	s = p->parse_expr(&parse, &func->code, BC_PARSE_NOREAD, bc_parse_next_read);
+	s = p->parse_exp(&parse, &func->code, BC_PARSE_NOREAD, bc_parse_next_read);
 	if (s) return s;
 
 	if (parse.lex.t.t != BC_LEX_NLINE && parse.lex.t.t != BC_LEX_EOF) {
@@ -1074,7 +1074,7 @@
 		if ((s = p->parse_init(&prs, p))) return s;
 		if ((s = bc_lex_text(&prs.lex, str))) goto err;
 
-		if ((s = p->parse_expr(&prs, &f->code, 0, bc_parse_next_for))) goto err;
+		if ((s = p->parse_exp(&prs, &f->code, 0, bc_parse_next_read))) goto err;
 
 		if (prs.lex.t.t != BC_LEX_EOF) {
 			s = BC_STATUS_PARSE_BAD_EXP;
@@ -1171,7 +1171,7 @@
 	p->nchars = p->scale = 0;
 	p->len = line_len;
 	p->parse_init = parse_init;
-	p->parse_expr = parse_expr;
+	p->parse_exp = parse_expr;
 
 	if ((s = bc_num_init(&p->ib, BC_NUM_DEF_SIZE))) return s;
 	bc_num_ten(&p->ib);