guile/guile-core/libguile print.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 00/10/18 14:05:57

Modified files:
        guile-core/libguile: print.c 

Log message:
        * print.c (grow_ref_stack): Pass a INUM to scm_make_vector as the
        size, not a naked int.  Thanks to Brat Knotwell!

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/print.c.diff?r1=1.100&r2=1.101

Patches:
Index: guile/guile-core/libguile/print.c
diff -u guile/guile-core/libguile/print.c:1.100 
guile/guile-core/libguile/print.c:1.101
--- guile/guile-core/libguile/print.c:1.100     Mon Oct  9 05:39:14 2000
+++ guile/guile-core/libguile/print.c   Wed Oct 18 14:05:57 2000
@@ -262,7 +262,7 @@
   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;