mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* Applied Martin Grabmueller's fix of case's handling of 'else.

Browse source
This commit is contained in:
Dirk Herrmann 2001-01-19 17:16:52 +00:00
parent 6c29a390fa
commit 4567ed787c
3 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -18,6 +18,7 @@ For fixes or providing information which led to a fix:
George Caswell George Caswell
Chris Cramer Chris Cramer
I. N. Golubev I. N. Golubev
Martin Grabmueller
Brad Knotwell Brad Knotwell
Matthias Köppe Matthias Köppe
Bruce Korb Bruce Korb

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-01-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (scm_m_case): The 'else' clause of a 'case' statement
now has to be the last clause, as required by R5RS. Thanks to
Martin Grabmueller for the patch.
2001-01-18 Gary Houston <ghouston@arglist.com> 2001-01-18 Gary Houston <ghouston@arglist.com>
* ioext.c: further simplify scm_read_string_x_partial by defining * ioext.c: further simplify scm_read_string_x_partial by defining

3
libguile/eval.c
View file

@ -595,7 +595,8 @@ scm_m_case (SCM xorig, SCM env)
proc = SCM_CAR (x); proc = SCM_CAR (x);
SCM_ASSYNT (scm_ilength (proc) >= 2, xorig, scm_s_clauses, s_case); SCM_ASSYNT (scm_ilength (proc) >= 2, xorig, scm_s_clauses, s_case);
SCM_ASSYNT (scm_ilength (SCM_CAR (proc)) >= 0 SCM_ASSYNT (scm_ilength (SCM_CAR (proc)) >= 0
|| SCM_EQ_P (scm_sym_else, SCM_CAR (proc)), || (SCM_EQ_P (scm_sym_else, SCM_CAR (proc))
&& SCM_NULLP (SCM_CDR (x))),
xorig, scm_s_clauses, s_case); xorig, scm_s_clauses, s_case);
} }
return scm_cons (SCM_IM_CASE, cdrx); return scm_cons (SCM_IM_CASE, cdrx);