In the following I expected a graphic to display of 4 points connected by straight-line segments, however nothing happens.
In[1]:= PlotPath[path_, options__] :=
Module[{argand = Map[{Re[#], Im[#]} &, path]},
grdata = {Line[argand],
{PointSize[0.03], Map[Point, argand]}};
Show[Graphics[grdata, AspectRatio -> 1,
Axes -> True, options]]]
psp = {1, I, -1, -I}; PlotPath[psp]
Out[2]= PlotPath[{1, I, -1, -I}]