mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

VM calls "<?" through intrinsic.

Browse source 
* libguile/intrinsics.c (less_p): New intrinsic.
  (scm_bootstrap_intrinsics): Wire up intrinsic.
* libguile/intrinsics.h: Declare new intrinsic.
* libguile/vm-engine.c (less_p): Call through intrinsic.
This commit is contained in:
Andy Wingo 2018-05-08 12:03:53 +02:00
parent 41bc98985f
commit 0a8a7e9fd0
3 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/vm-engine.c
View file

@ -2897,12 +2897,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
y = SP_REF (b);
SYNC_IP ();
if (scm_is_true (scm_nan_p (x)) || scm_is_true (scm_nan_p (y)))
vp->compare_result = SCM_F_COMPARE_INVALID;
else if (scm_is_true (scm_less_p (x, y)))
vp->compare_result = SCM_F_COMPARE_LESS_THAN;
else
vp->compare_result = SCM_F_COMPARE_NONE;
vp->compare_result = scm_vm_intrinsics.less_p (x, y);
CACHE_SP ();
NEXT (1);
}