mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +02:00
Code Activity

* Fix two typos 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:04:15 +00:00
parent 89255ff476
commit 0f6e56f7e2
8 changed files with 26 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -32,6 +32,7 @@ For fixes or providing information which led to a fix:
Albert Chin Albert Chin
Chris Cramer Chris Cramer
Brian Crowder Brian Crowder
Sébastien de Menten de Horne
Alexandre Duret-Lutz Alexandre Duret-Lutz
Eric Gillespie, Jr Eric Gillespie, Jr
John Goerzen John Goerzen

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2002-02-21 Neil Jerram <neil@ossau.uklinux.net>
* stacks.c, stacks.h (scm_t_stackype): Renamed to scm_stack_type
everywhere.
* unif.c (scm_array_to_list): Correct name, which had been
accidentally changed to scm_t_arrayo_list!
2002-02-11 Thien-Thi Nguyen <ttn@giblet.glug.org> 2002-02-11 Thien-Thi Nguyen <ttn@giblet.glug.org>
* Makefile.am (bin_PROGRAMS): Move `guile_filter_doc_snarfage' * Makefile.am (bin_PROGRAMS): Move `guile_filter_doc_snarfage'

10
libguile/stacks.c
View file

@ -404,7 +404,7 @@ narrow_stack (SCM stack,long inner,SCM inner_key,long outer,SCM outer_key)
/* Stacks /* Stacks
*/ */
SCM scm_t_stackype; SCM scm_stack_type;
SCM_DEFINE (scm_stack_p, "stack?", 1, 0, 0, SCM_DEFINE (scm_stack_p, "stack?", 1, 0, 0,
(SCM obj), (SCM obj),
@ -467,7 +467,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
size = n * SCM_FRAME_N_SLOTS; size = n * SCM_FRAME_N_SLOTS;
/* Make the stack object. */ /* Make the stack object. */
stack = scm_make_struct (scm_t_stackype, SCM_MAKINUM (size), SCM_EOL); stack = scm_make_struct (scm_stack_type, SCM_MAKINUM (size), SCM_EOL);
SCM_STACK (stack) -> id = id; SCM_STACK (stack) -> id = id;
iframe = &SCM_STACK (stack) -> tail[0]; iframe = &SCM_STACK (stack) -> tail[0];
SCM_STACK (stack) -> frames = iframe; SCM_STACK (stack) -> frames = iframe;
@ -624,7 +624,7 @@ SCM_DEFINE (scm_last_stack_frame, "last-stack-frame", 1, 0, 0,
if (!dframe || SCM_VOIDFRAMEP (*dframe)) if (!dframe || SCM_VOIDFRAMEP (*dframe))
return SCM_BOOL_F; return SCM_BOOL_F;
stack = scm_make_struct (scm_t_stackype, SCM_MAKINUM (SCM_FRAME_N_SLOTS), stack = scm_make_struct (scm_stack_type, SCM_MAKINUM (SCM_FRAME_N_SLOTS),
SCM_EOL); SCM_EOL);
SCM_STACK (stack) -> length = 1; SCM_STACK (stack) -> length = 1;
SCM_STACK (stack) -> frames = &SCM_STACK (stack) -> tail[0]; SCM_STACK (stack) -> frames = &SCM_STACK (stack) -> tail[0];
@ -759,11 +759,11 @@ scm_init_stacks ()
SCM stack_layout SCM stack_layout
= scm_make_struct_layout (scm_makfrom0str (SCM_STACK_LAYOUT)); = scm_make_struct_layout (scm_makfrom0str (SCM_STACK_LAYOUT));
vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL); vtable = scm_make_vtable_vtable (scm_nullstr, SCM_INUM0, SCM_EOL);
scm_t_stackype scm_stack_type
= scm_permanent_object (scm_make_struct (vtable, SCM_INUM0, = scm_permanent_object (scm_make_struct (vtable, SCM_INUM0,
scm_cons (stack_layout, scm_cons (stack_layout,
SCM_EOL))); SCM_EOL)));
scm_set_struct_vtable_name_x (scm_t_stackype, scm_str2symbol ("stack")); scm_set_struct_vtable_name_x (scm_stack_type, scm_str2symbol ("stack"));
#ifndef SCM_MAGIC_SNARFER #ifndef SCM_MAGIC_SNARFER
#include "libguile/stacks.x" #include "libguile/stacks.x"
#endif #endif

4
libguile/stacks.h
View file

@ -77,9 +77,9 @@ typedef struct scm_t_stack {
# define scm_stack scm_t_stack # define scm_stack scm_t_stack
#endif #endif
extern SCM scm_t_stackype; extern SCM scm_stack_type;
#define SCM_STACKP(obj) (SCM_STRUCTP (obj) && SCM_EQ_P (SCM_STRUCT_VTABLE (obj), scm_t_stackype)) #define SCM_STACKP(obj) (SCM_STRUCTP (obj) && SCM_EQ_P (SCM_STRUCT_VTABLE (obj), scm_stack_type))
#define SCM_STACK_LENGTH(stack) (SCM_STACK (stack) -> length) #define SCM_STACK_LENGTH(stack) (SCM_STACK (stack) -> length)
#define SCM_FRAMEP(obj) \ #define SCM_FRAMEP(obj) \

4
libguile/unif.c
View file

@ -2087,11 +2087,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), (SCM v),
"Return a list consisting of all the elements, in order, of\n" "Return a list consisting of all the elements, in order, of\n"
"@var{array}.") "@var{array}.")
#define FUNC_NAME s_scm_t_arrayo_list #define FUNC_NAME s_scm_array_to_list
{ {
SCM res = SCM_EOL; SCM res = SCM_EOL;
register long k; register long k;

2
libguile/unif.h
View file

@ -146,7 +146,7 @@ extern SCM scm_bit_set_star_x (SCM v, SCM kv, SCM obj);
extern SCM scm_bit_count_star (SCM v, SCM kv, SCM obj); extern SCM scm_bit_count_star (SCM v, SCM kv, SCM obj);
extern SCM scm_bit_invert_x (SCM v); extern SCM scm_bit_invert_x (SCM v);
extern SCM scm_istr2bve (char *str, long len); extern SCM scm_istr2bve (char *str, long len);
extern SCM scm_t_arrayo_list (SCM v); extern SCM scm_array_to_list (SCM v);
extern SCM scm_list_to_uniform_array (SCM ndim, SCM prot, SCM lst); extern SCM scm_list_to_uniform_array (SCM ndim, SCM prot, SCM lst);
extern int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate); extern int scm_raprin1 (SCM exp, SCM port, scm_print_state *pstate);
extern SCM scm_array_prototype (SCM ra); extern 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-08 Thien-Thi Nguyen <ttn@giblet.glug.org> 2002-02-08 Thien-Thi Nguyen <ttn@giblet.glug.org>
* Makefile.am (AUTOMAKE_OPTIONS): Replace "foreign" with "gnu". * Makefile.am (AUTOMAKE_OPTIONS): Replace "foreign" with "gnu".

2
srfi/srfi-19.scm
View file

@ -802,7 +802,7 @@
(9 . 273) (10 . 304) (11 . 334) (12 . 365))) (9 . 273) (10 . 304) (11 . 334) (12 . 365)))
(define (priv:year-day day month year) (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) (if (not days-pr)
(priv:error 'date-year-day 'invalid-month-specification month)) (priv:error 'date-year-day 'invalid-month-specification month))
(if (and (priv:leap-year? year) (> month 2)) (if (and (priv:leap-year? year) (> month 2))