741 |
s_bad_case_labels, labels, expr); |
s_bad_case_labels, labels, expr); |
742 |
all_labels = scm_append_x (scm_list_2 (labels, all_labels)); |
all_labels = scm_append_x (scm_list_2 (labels, all_labels)); |
743 |
} |
} |
744 |
|
else if (SCM_NULLP (labels)) |
745 |
|
{ |
746 |
|
/* The list of labels is empty. According to R5RS this is allowed. |
747 |
|
* It means that the sequence of expressions will never be executed. |
748 |
|
* Therefore, as an optimization, we could remove the whole |
749 |
|
* clause. */ |
750 |
|
} |
751 |
else |
else |
752 |
{ |
{ |
753 |
ASSERT_SYNTAX_2 (SCM_EQ_P (labels, scm_sym_else) && else_literal_p, |
ASSERT_SYNTAX_2 (SCM_EQ_P (labels, scm_sym_else) && else_literal_p, |