From 75e48f999f2576340c73fa7155d9c902f8ae62b0 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 15 May 2018 13:15:53 -0400 Subject: [PATCH] Issue #55 - Support (inexact) for complex --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 83b471a2..c281a716 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1195,9 +1195,9 @@ (define exact truncate) (define-c inexact "(void *data, int argc, closure _, object k, object z)" - " return_inexact_double_op(data, k, (double), z); " + " return_inexact_double_or_cplx_op(data, k, (double), (double complex), z); " "(void *data, object ptr, object z)" - " return_inexact_double_op_no_cps(data, ptr, (double), z);") + " return_inexact_double_or_cplx_op_no_cps(data, ptr, (double), (double complex), z);") (define-c abs "(void *data, int argc, closure _, object k, object num)" " Cyc_check_num(data, num);