diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 16:03:01 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 16:03:01 +0000 |
commit | 79e9bca7e9a7cae22b8b4162368a0776e10f5106 (patch) | |
tree | b7d59d19d3a09c36803f2dd03a4691632c104b2f /test-suite/standalone/test-unwind.c | |
parent | 67b74a4c3e2a372c1a403cddc127538352d13b0e (diff) | |
download | guile-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.c | 8 |
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); |