Initial file

scheme/complex.sld

@@ -0,0 +1,30 @@
+;;;; 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"))
+))