summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/unif.c4
-rw-r--r--libguile/unif.h2
-rw-r--r--srfi/ChangeLog6
-rw-r--r--srfi/srfi-19.scm2
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))