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

* print.c (grow_ref_stack): Pass a INUM to scm_make_vector as the

Browse source 
size, not a naked int.  Thanks to Brat Knotwell!
This commit is contained in:
Marius Vollmer 2000-10-18 21:05:57 +00:00
parent 0100535b2c
commit 5264d62116
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/print.c
View file

@ -262,7 +262,7 @@ grow_ref_stack (scm_print_state *pstate)
unsigned long int old_size = SCM_VECTOR_LENGTH (pstate->ref_vect);
SCM *old_elts = SCM_VELTS (pstate->ref_vect);
unsigned long int new_size = 2 * pstate->ceiling;
SCM new_vect = scm_make_vector (new_size, SCM_UNDEFINED);
SCM new_vect = scm_make_vector (SCM_MAKINUM (new_size), SCM_UNDEFINED);
SCM *new_elts = SCM_VELTS (new_vect);
unsigned long int i;