Fix: make-complex -> make-rectangular
This commit is contained in:
parent
dd9e11e1c7
commit
fdf13f9dfc
|
@ -74,8 +74,8 @@
|
||||||
[(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)))]
|
||||||
[(box? v) `(box ,(loop (unbox v)))]
|
[(box? v) `(box ,(loop (unbox v)))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user