From 8cb74fb075a533b770246edea5ecec0ad90c762b Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Apr 2017 10:27:23 +0000 Subject: [PATCH] Inline version of truncate --- scheme/base.sld | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 0f6e281b..10358a46 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1073,10 +1073,8 @@ (define-c truncate "(void *data, int argc, closure _, object k, object z)" " return_exact_double_op(data, k, (int), z); " - ;; TODO: this inline form is not stable yet, will crash the gcbench benchmark - ;"(void *data, object ptr, object z)" - ;" return_exact_double_op_no_cps(data, ptr, (int), z);" - ) + "(void *data, object ptr, object z)" + " return_exact_double_op_no_cps(data, ptr, (int), z);") (define-c round "(void *data, int argc, closure _, object k, object z)" " return_exact_double_op(data, k, round, z); ")