From 11931bca7df27412b2932ab796cdb0181140baa5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 10 May 2018 13:24:24 -0400 Subject: [PATCH] Build-out make-rectangular --- scheme/complex.sld | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/scheme/complex.sld b/scheme/complex.sld index 0c7208d2..9582076c 100644 --- a/scheme/complex.sld +++ b/scheme/complex.sld @@ -27,7 +27,13 @@ (define (magnitude z) (error "Complex numbers are not supported at this time")) (define (make-rectangular x y) - (error "Complex numbers are not supported at this time")) + (Cyc-make-rect x y)) (define (make-polar x y) (error "Complex numbers are not supported at this time")) + + (define-c Cyc-make-rect + "(void *data, int argc, closure _, object k, object r, object i)" + " Cyc_check_num(data, r); + Cyc_check_num(data, i); + Cyc_make_rectangular(data, k, r, i); ") ))