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

(scm_max, scm_min): For big/real, use SCM_SWAP rather than

Browse source 
explicit swapping code.
This commit is contained in:
Kevin Ryde 2004-04-17 21:58:23 +00:00
parent 83ac9c59df
commit b6f8f763db
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -3590,7 +3590,7 @@ scm_max (SCM x, SCM y)
} }
else if (SCM_BIGP (y)) else if (SCM_BIGP (y))
{ {
SCM t = x; x = y; y = t; SCM_SWAP (x, y);
goto big_real; goto big_real;
} }
else if (SCM_REALP (y)) else if (SCM_REALP (y))
@ -3722,7 +3722,7 @@ scm_min (SCM x, SCM y)
} }
else if (SCM_BIGP (y)) else if (SCM_BIGP (y))
{ {
SCM t = x; x = y; y = t; SCM_SWAP (x, y);
goto big_real; goto big_real;
} }
else if (SCM_REALP (y)) else if (SCM_REALP (y))