diff options
author | Andy Wingo <wingo@pobox.com> | 2018-05-08 14:16:02 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-05-08 14:16:02 +0200 |
commit | 007fcf699f2f327fdc187d9a51db0ba83b02d6de (patch) | |
tree | 1488c345e940d7a8d55d50041aa141a1e1564c9d /libguile/vm-engine.c | |
parent | 0a8a7e9fd0eedfcf7e7acb1a6ecbc4a3bb9a5f16 (diff) | |
download | guile-007fcf699f2f327fdc187d9a51db0ba83b02d6de.tar.gz |
VM calls =? through intrinsic
* libguile/intrinsics.c (numerically_equal_p): New intrinsic.
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): Declare new
intrinsic.
* libguile/vm-engine.c (=?): Call through intrinsic.
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; |