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,8 +74,8 @@
[(integer? v) v]
[(real? v) `(/ ,(numerator v)
,(denominator v))]
[(complex? v) `(make-complex ,(loop (real-part v))
,(loop (imag-part v)))])))]
[(complex? v) `(make-rectangular ,(loop (real-part v))
,(loop (imag-part v)))])))]
[(list? v) `(list ,@(map loop v))]
[(vector? v) `(vector ,@(map loop (vector->list v)))]
[(box? v) `(box ,(loop (unbox v)))]