From a0ef515b4e10830d2b5939b59a3afdb402bcc638 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 21 Jan 2016 22:58:25 -0500 Subject: [PATCH] Added stub --- scheme/inexact.sld | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 scheme/inexact.sld diff --git a/scheme/inexact.sld b/scheme/inexact.sld new file mode 100644 index 00000000..2fede415 --- /dev/null +++ b/scheme/inexact.sld @@ -0,0 +1,16 @@ +(define-library (scheme inexact) + (export + sin + ) + (begin + (define-c sin + "(void *data, int argc, closure _, object k, object z)" + " make_double(d, 0.0); + Cyc_check_num(data, z); + if (type_of(z) == integer_tag) { + d.value = sin(((integer_type *)z)->value); + } else { + d.value = sin(((double_type *)z)->value); + } + return_closcall1(data, k, &d); ") +))