From e5d63a61d5b0a8fc98c7682611c6c68142c1d69c Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 4 Apr 2017 09:11:07 +0000 Subject: [PATCH] WIP --- scheme/base.sld | 4 +++- scheme/inexact.sld | 6 ------ 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index d7cfbefc..c00addf3 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1071,7 +1071,9 @@ " return_exact_double_op(data, k, ceil, z); ") (define-c truncate "(void *data, int argc, closure _, object k, object z)" - " return_exact_double_op(data, k, (int), z); ") + " return_exact_double_op(data, k, (int), z); " + "(void *data, object ptr, object z)" + " unboxed_inexact_double_op(data, ptr, (int), z);") (define-c round "(void *data, int argc, closure _, object k, object z)" " return_exact_double_op(data, k, round, z); ") diff --git a/scheme/inexact.sld b/scheme/inexact.sld index f31055ad..e971ac85 100644 --- a/scheme/inexact.sld +++ b/scheme/inexact.sld @@ -69,13 +69,7 @@ (define-c c-log "(void *data, int argc, closure _, object k, object z)" " return_inexact_double_op(data, k, log, z);" -; TODO: experimenting with how an inline definition might look. -; need something that can both work within the same module and -; also when imported into another module. - ;; Inline arguments: "(void *data, object ptr, object z)" - ;; must always return an object - ;; Inline body: " unboxed_inexact_double_op(data, ptr, log, z);" ) (define-c sin