#include "factor.h"

void primitive_from_rect(void)
{
	CELL real, imaginary;
	F_COMPLEX* complex;

	maybe_garbage_collection();

	imaginary = dpop();
	real = dpop();
	complex = allot(sizeof(F_COMPLEX));
	complex->real = real;
	complex->imaginary = imaginary;
	dpush(tag_complex(complex));
}