Fix: make-complex -> make-rectangular
This commit is contained in:
parent
dd9e11e1c7
commit
fdf13f9dfc
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user