summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-05-08 11:49:46 +0200
committerAndy Wingo <wingo@pobox.com>2018-05-08 11:49:46 +0200
commit41bc98985f39ed512594402cf150cebaff498656 (patch)
treedcc784d9ec9808e037c39c5f3e5ff9adb0db919e /libguile/vm-engine.c
parent84cb7c45fdc6b310eff854ae0d1852dcbc9a4d60 (diff)
downloadguile-41bc98985f39ed512594402cf150cebaff498656.tar.gz
VM calls out to heap-numbers-equal? through intrinsics
* libguile/numbers.h: * libguile/eq.c (scm_i_heap_numbers_equal_p): Change to return boolean directly instead of tagged Scheme value. (scm_eqv_p): Adapt caller of scm_i_heap_numbers_equal_p. * libguile/intrinsics.c (scm_bootstrap_intrinsics): * libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): Declare heap-numbers-equal? intrinsic. * libguile/vm-engine.c (heap-numbers-equal?): Call out through the intrinsics table.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 683b3acc2..184cd1ef7 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -3141,7 +3141,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
y = SP_REF (b);
SYNC_IP ();
- if (scm_is_true (scm_i_heap_numbers_equal_p (x, y)))
+ if (scm_vm_intrinsics.heap_numbers_equal_p (x, y))
vp->compare_result = SCM_F_COMPARE_EQUAL;
else
vp->compare_result = SCM_F_COMPARE_NONE;