summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-unwind.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-08 16:03:01 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-08 16:03:01 +0000
commit79e9bca7e9a7cae22b8b4162368a0776e10f5106 (patch)
treeb7d59d19d3a09c36803f2dd03a4691632c104b2f /test-suite/standalone/test-unwind.c
parent67b74a4c3e2a372c1a403cddc127538352d13b0e (diff)
downloadguile-79e9bca7e9a7cae22b8b4162368a0776e10f5106.tar.gz
Use scm_from_int instead of SCM_MAKINUM and scm_is_eq instead
SCM_EQ_P.
Diffstat (limited to 'test-suite/standalone/test-unwind.c')
-rw-r--r--test-suite/standalone/test-unwind.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/standalone/test-unwind.c b/test-suite/standalone/test-unwind.c
index 0704859d7..ca04df344 100644
--- a/test-suite/standalone/test-unwind.c
+++ b/test-suite/standalone/test-unwind.c
@@ -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);