mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* Fix a typo that crept in with the scm_X_t to scm_t_X rename.

Browse source 
* Partial fix for date-week-number bug.
This commit is contained in:
Neil Jerram 2002-02-22 23:14:38 +00:00
parent bf9b86fc59
commit cd328b4fef
5 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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

4
libguile/unif.c
View file

@ -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;

2
libguile/unif.h
View file

@ -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);

6
srfi/ChangeLog
View file

@ -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

2
srfi/srfi-19.scm
View file

@ -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))