mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* numbers.c (scm_integer_expt): fix case where we were declaring

Browse source 
vars in the middle of a statement block.  Thanks to Thamer
Al-Harbash.
This commit is contained in:
Rob Browning 2003-04-17 22:15:37 +00:00
parent 89aab6f1ac
commit 1c35cb199f
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/numbers.c
View file

@ -1150,6 +1150,9 @@ SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
"@end lisp") "@end lisp")
#define FUNC_NAME s_scm_integer_expt #define FUNC_NAME s_scm_integer_expt
{ {
long i2 = 0;
SCM z_i2 = SCM_BOOL_F;
int i2_is_big = 0;
SCM acc = SCM_MAKINUM (1L); SCM acc = SCM_MAKINUM (1L);
/* 0^0 == 1 according to R5RS */ /* 0^0 == 1 according to R5RS */
@ -1158,10 +1161,6 @@ SCM_DEFINE (scm_integer_expt, "integer-expt", 2, 0, 0,
else if (SCM_EQ_P (n, SCM_MAKINUM (-1L))) else if (SCM_EQ_P (n, SCM_MAKINUM (-1L)))
return SCM_FALSEP (scm_even_p (k)) ? n : acc; return SCM_FALSEP (scm_even_p (k)) ? n : acc;
long i2 = 0;
SCM z_i2 = SCM_BOOL_F;
int i2_is_big = 0;
if (SCM_INUMP (k)) if (SCM_INUMP (k))
i2 = SCM_INUM (k); i2 = SCM_INUM (k);
else if (SCM_BIGP (k)) else if (SCM_BIGP (k))