/[guile]/guile/guile-core/libguile/eval.c
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.321 by dirk, Sat Oct 11 00:57:25 2003 UTC revision 1.322 by dirk, Sat Oct 11 01:52:24 2003 UTC
# Line 741  scm_m_case (SCM expr, SCM env) Line 741  scm_m_case (SCM expr, SCM env)
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,

Legend:
Removed from v.1.321  
changed lines
  Added in v.1.322

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26