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/intrinsics.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/intrinsics.c')
| -rw-r--r-- | libguile/intrinsics.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/intrinsics.c b/libguile/intrinsics.c index 33857f297..c361e4626 100644 --- a/libguile/intrinsics.c +++ b/libguile/intrinsics.c @@ -214,6 +214,12 @@ less_p (SCM a, SCM b) return SCM_F_COMPARE_NONE; } +static int +numerically_equal_p (SCM a, SCM b) +{ + return scm_is_true (scm_num_eq_p (a, b)); +} + void scm_bootstrap_intrinsics (void) { @@ -255,6 +261,7 @@ scm_bootstrap_intrinsics (void) scm_vm_intrinsics.rsh_immediate = rsh_immediate; scm_vm_intrinsics.heap_numbers_equal_p = scm_i_heap_numbers_equal_p; scm_vm_intrinsics.less_p = less_p; + scm_vm_intrinsics.numerically_equal_p = numerically_equal_p; scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION, "scm_init_intrinsics", |