mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 21:59:16 +02:00
30 lines
810 B
Scheme
30 lines
810 B
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; This module contains the complex library from r7rs.
|
|
;;;;
|
|
(define-library (scheme complex)
|
|
(export
|
|
angle
|
|
imag-part
|
|
magnitude
|
|
make-polar
|
|
make-rectangular
|
|
real-part
|
|
)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (real-part x) x)
|
|
(define (imag-part x) 0)
|
|
(define (angle z)
|
|
(error "Complex numbers are not supported at this time"))
|
|
(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"))
|
|
(define (make-polar x y)
|
|
(error "Complex numbers are not supported at this time"))
|
|
))
|