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

Use scm_from_int instead of SCM_MAKINUM and scm_is_eq instead

Browse source 
SCM_EQ_P.
This commit is contained in:
Marius Vollmer 2004-07-08 16:03:01 +00:00
parent 67b74a4c3e
commit 79e9bca7e9
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/standalone/test-unwind.c
View file

@ -213,20 +213,20 @@ check_fluid ()
SCM f = scm_make_fluid ();
SCM x;
scm_fluid_set_x (f, SCM_MAKINUM (12));
scm_fluid_set_x (f, scm_from_int (12));
scm_frame_begin (0);
scm_frame_fluid (f, SCM_MAKINUM (13));
scm_frame_fluid (f, scm_from_int (13));
x = scm_fluid_ref (f);
scm_frame_end ();
if (!SCM_EQ_P (x, SCM_MAKINUM (13)))
if (!scm_is_eq (x, scm_from_int (13)))
{
printf ("setting fluid didn't work\n");
exit (1);
}
if (!SCM_EQ_P (scm_fluid_ref (f), SCM_MAKINUM (12)))
if (!scm_is_eq (scm_fluid_ref (f), scm_from_int (12)))
{
printf ("resetting fluid didn't work\n");
exit (1);