2004-08-06 02:51:32 -04:00
|
|
|
#include "factor.h"
|
|
|
|
|
|
|
|
|
|
void primitive_from_rect(void)
|
|
|
|
|
{
|
2004-12-24 17:29:16 -05:00
|
|
|
CELL real, imaginary;
|
2005-03-29 20:34:29 -05:00
|
|
|
F_CONS* complex;
|
2004-10-12 23:49:43 -04:00
|
|
|
|
2005-06-16 18:50:49 -04:00
|
|
|
maybe_gc(sizeof(F_CONS));
|
2004-10-12 23:49:43 -04:00
|
|
|
|
2004-12-24 17:29:16 -05:00
|
|
|
imaginary = dpop();
|
|
|
|
|
real = dpop();
|
2005-03-29 20:34:29 -05:00
|
|
|
complex = allot(sizeof(F_CONS));
|
|
|
|
|
complex->car = real;
|
|
|
|
|
complex->cdr = imaginary;
|
|
|
|
|
dpush(RETAG(complex,COMPLEX_TYPE));
|
2004-08-06 02:51:32 -04:00
|
|
|
}
|
