diff options
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/unif.c | 4 | ||||
-rw-r--r-- | libguile/unif.h | 2 | ||||
-rw-r--r-- | srfi/ChangeLog | 6 | ||||
-rw-r--r-- | srfi/srfi-19.scm | 2 |
5 files changed, 15 insertions, 4 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 80943b34e..c6d8dac9a 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2002-02-21 Neil Jerram <neil@ossau.uklinux.net> + + * unif.c (scm_array_to_list): Correct name, which had been + accidentally changed to scm_t_arrayo_list! + 2002-02-20 Mikael Djurfeldt <mdj@linnaeus> * gc.c (scm_gc_sweep): Print an error message when aborting due to diff --git a/libguile/unif.c b/libguile/unif.c index 4e9c572b1..96bdfa4f0 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2078,11 +2078,11 @@ ra2l (SCM ra,unsigned long base,unsigned long k) } -SCM_DEFINE (scm_t_arrayo_list, "array->list", 1, 0, 0, +SCM_DEFINE (scm_array_to_list, "array->list", 1, 0, 0, (SCM v), "Return a list consisting of all the elements, in order, of\n" "@var{array}.") -#define FUNC_NAME s_scm_t_arrayo_list +#define FUNC_NAME s_scm_array_to_list { SCM res = SCM_EOL; register long k; diff --git a/libguile/unif.h b/libguile/unif.h index 522a630b4..e467033df 100644 --- a/libguile/unif.h +++ b/libguile/unif.h @@ -140,7 +140,7 @@ SCM_API SCM scm_bit_set_star_x (SCM v, SCM kv, SCM obj); SCM_API SCM scm_bit_count_star (SCM v, SCM kv, SCM obj); SCM_API SCM scm_bit_invert_x (SCM v); SCM_API SCM scm_istr2bve (char *str, long len); -SCM_API SCM scm_t_arrayo_list (SCM v); +SCM_API SCM scm_array_to_list (SCM v); SCM_API SCM scm_list_to_uniform_array (SCM ndim, SCM prot, SCM lst); SCM_API int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate); SCM_API SCM scm_array_prototype (SCM ra); diff --git a/srfi/ChangeLog b/srfi/ChangeLog index b201d96c9..f9d8659f2 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,9 @@ +2002-02-22 Neil Jerram <neil@ossau.uklinux.net> + + * srfi-19.scm (priv:year-day): Index into priv:month-assoc using + month number, not day number. (Thanks to Sébastien de Menten de + Horne for reporting the problem.) + 2002-02-11 Marius Vollmer <marius.vollmer@uni-dortmund.de> * srfi-14.c, srfi-4.c: Use scm_gc_malloc/scm_malloc and diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index 9b8418a99..f1ad0e7cc 100644 --- a/srfi/srfi-19.scm +++ b/srfi/srfi-19.scm @@ -802,7 +802,7 @@ (9 . 273) (10 . 304) (11 . 334) (12 . 365))) (define (priv:year-day day month year) - (let ((days-pr (assoc day priv:month-assoc))) + (let ((days-pr (assoc month priv:month-assoc))) (if (not days-pr) (priv:error 'date-year-day 'invalid-month-specification month)) (if (and (priv:leap-year? year) (> month 2)) |