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

* numbers.c (big2str): Protect t from garbage collection until

Browse source 
we're done.  (Thanks to Gary Houston.)
This commit is contained in:
Jim Blandy 1998-10-10 12:59:37 +00:00
parent 4147236a59
commit b098016b6e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/numbers.c
View file

@ -1418,7 +1418,8 @@ big2str(b, radix)
for(i = j;j < SCM_LENGTH(ss);j++) s[ch+j-i] = s[j]; /* jeh */
scm_vector_set_length_x(ss, (SCM)SCM_MAKINUM(ch+SCM_LENGTH(ss)-i)); /* jeh */
}
return ss;
return scm_return_first (ss, t);
}
#endif