20 lines
320 B
Scheme
20 lines
320 B
Scheme
;;;
|
|
;;; husk-scheme
|
|
;;; http://justinethier.github.com/husk-scheme
|
|
;;;
|
|
;;; Written by Justin Ethier
|
|
;;;
|
|
;;; r7rs complex library
|
|
;;;
|
|
|
|
(define-library (scheme complex)
|
|
(export
|
|
angle
|
|
imag-part
|
|
magnitude
|
|
make-polar
|
|
make-rectangular
|
|
real-part
|
|
)
|
|
(import (scheme)))
|