Fix: make-complex -> make-rectangular

This commit is contained in:
Michael MacLeod 2019-03-27 15:32:59 -07:00 committed by Gustavo Massaccesi
parent dd9e11e1c7
commit fdf13f9dfc

View File

@ -74,7 +74,7 @@
[(integer? v) v] [(integer? v) v]
[(real? v) `(/ ,(numerator v) [(real? v) `(/ ,(numerator v)
,(denominator v))] ,(denominator v))]
[(complex? v) `(make-complex ,(loop (real-part v)) [(complex? v) `(make-rectangular ,(loop (real-part v))
,(loop (imag-part v)))])))] ,(loop (imag-part v)))])))]
[(list? v) `(list ,@(map loop v))] [(list? v) `(list ,@(map loop v))]
[(vector? v) `(vector ,@(map loop (vector->list v)))] [(vector? v) `(vector ,@(map loop (vector->list v)))]