diff options
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 0c3a0ae6f..f4b10af66 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2879,7 +2879,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, y = SP_REF (b); SYNC_IP (); - if (scm_is_true (scm_num_eq_p (x, y))) + if (scm_vm_intrinsics.numerically_equal_p (x, y)) vp->compare_result = SCM_F_COMPARE_EQUAL; else vp->compare_result = SCM_F_COMPARE_NONE; |