Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Build-out make-rectangular

Browse source
This commit is contained in:
Justin Ethier 2018-05-10 13:24:24 -04:00
parent 9c64faa3df
commit 11931bca7d
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/complex.sld
View file

@ -27,7 +27,13 @@
(define (magnitude z) (define (magnitude z)
(error "Complex numbers are not supported at this time")) (error "Complex numbers are not supported at this time"))
(define (make-rectangular x y) (define (make-rectangular x y)
(error "Complex numbers are not supported at this time")) (Cyc-make-rect x y))
(define (make-polar x y) (define (make-polar x y)
(error "Complex numbers are not supported at this time")) (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); ")
)) ))